The 



<S* 



tfte CoCo Commune 




THE COLOR COMPUTER MONTHLY MAGAZINE 



March 1993 vol. xn no. 8 



Canada $4.95 U.S. $3.95 





O^d Glory 




A patriotic 
W^ program 
B for the 
l^ CoCo 
1 W See Page 9 



Feature Program 



VEF Graphics for 
Disk BASIC 



by Thomas Wong 



Feature Program 



Are Your Joysticks 



One of the CoCo 3 's best features 
has always been its ability to 
create very detailed graphics 
images through BASIC or a 
graphics editor such as Spectra 3 (THE RAIN- 
BOW. October 1990, Page 10). Over the 
years, many different file formats for sav- 
ing these creations on disk have been intro- 
duced. However, as the disks also fill up 
with Ihe wide assortment of the picture 
savers and viewers necessary for the differ- 
ent formats, it becomes obvious that a stan- 
dardized format should have been devel- 
oped earlier. Few of the numerous formats 
invented are programmer-friendly or pro- 
vide support for more than one screen reso- 
lution. Meanwhile, OS-9 Level 11 users 
have been able to sit back and enjoy the 



grammers a great deal of development time. 
The program presented here, VEFit, al- 
lows CoCo 3 users to take advantage of this 
format. VEFit allows you lo save any 
HSCREEN in memory as a VEF-formatdisk 
file, then view the image at a later time. 
With the exception of Type-2 VEF images, 
any VEF picture, including those created 
under OS-9, can be viewed. The Type-2 
image uses a resolution of 160 by 200. with 
1 6 colors — a configuration for which there 
isnoHSCREENequivalent.Thankfully.Type- 
2 VEF's are rareiy used under OS-9. 

Getting Started 

VEFit requires a CoCo 3 with at least 
128K and one disk drive. To get started, 
enter the listing for VEFIT, save the program 




Bytes Description 

Compression: 0=none, 128=squashed 
Note: VEFit supports no compression 

Picture resolution: 

= 320-by-200, 16 colors: HSCREEN2 

1 =640-by-200, 4 colors: HSCREEN4 

2 = 160-by-200, 16 colors: No support 

3 = 320-by-20G, 4 colors: HSCREEN1 

4 = 640-by-200. 2 colors: HSCREEN3 

Palette values (RGB) 



640 

1 280 



15360 
30720 



8 blank scan lines: HSCREEN? or HSCREEN4 
8 blank scan lines: HSCREEN1 or HSCREEN3 



192 scan lines if HSCREEN2 orHSCREEN4 
142 scan lines if HSCREEN1 or HSCREEN3 



Figure 1: VEF Format 



„ : -'■ 



VEF format that essentially came with ihe 
operating system. 

The VEF formal has gained wide accep- 
tance in the OS-9 world for good reason: 
it's a straightforward format that fits the 
intended job. With support for five resolu- 
tions, four of them perfect for BASIC'S 
HSCREEN resolutions, it is easy to see that 
VEF could have saved Disk BASIC pro- 



to disk, then enter RUN. 

After a short pause, you are asked to 
select the type of monitor you are currently 
using. This is an important factor when 
loading or saving a picture's palette values; 
since composite color monitors (or TVs) 
and RGB monitors differ in the ways they 

VEF Graphics continued on Page 10. 



by Trevor Boehm 



Over the years, my Color Com- 
puters have seen over 25 joy- 
sticks come and go. But until 
I wrote Joy stick Checker. I had 
no easy way to determine if the joysticks 
were dead or alive. More recently, this short 
utility has helped me with joystick repairs. 
To use Joystick Checker, enter the pro- 
gram as shown in the listing and save it to 
tape or disk as JOYTEST. After running the 
program, simply follow the screen prompts 
to determine if your joystick works. If the 
joystick does not have a second button (like 
the one on the Tandy Deluxe Joystick), the 
program will break out of the loop after it 
tries to read that button. Other failures will 
cause the program to loop endlessly -- 
press BREAK to abort. If the joystick per- 
forms fine, the program reports the success 
on the screen. 



Users with CoCo l's or 2's must convert 
the program so it uses the PEEK (65280) 
function to read the button since the BUTTON 
command is available only on the CoCo 3. 
Information about doing this appears in the 
BASIC manual. 

Joystick Checker is a useful program 
that should be in every CoCo user's bag of 
tricks. 



Trevor Boehm is a tenth-grade student 
whose greatest passion is challenging com- 
puters with new programs. He has partici- 
pated in several science fairs and has re- 
ceived numerous awards for his work. He 
can be contacted at 77 Inwood Cres., 
Winnipeg, MB R2Y 1 A2. Canada. Please 
include an SASE when requesting a reply. 
See program listing on Page 3 
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LETTERS 



Looking for CoCo l's and 2's 

Editor: 

To support our R&D work with deaf 
children, I am looking for working CoCo 
1 's and 2's in good cosmetic shape. If any 
readers of THE rainbow have spare units 
they'd be willing to sell, they may contact 
me by phone, letter or fax. Thank you for 
your kind assistance. 

Norman Lederman 

Oval Window Audio 

33 Wild/lower Court 

Nederland, CO 80466 

(303) 447-3607 (Phone/Fax) 

Wants Telecommunications Articles 

Editor: 

I want to send my kudos to THE RAIN- 
BOW for its fine work. Through time. I've 
managed to collect every back issue. I also 
want to point out that it looks like the future 
of the CoCo and its community is going to 
reside in telecommunications. Already 
Delphi and Fido-NET play a big part in 
keeping us connected. It would be nice to 
see THE RAINBOW provide some more ar- 
ticles on telecommunications, maybe in 
preparation for the time when CoCo users 
no longer have THE RAINBOW, or in the 
event THE RAINBOW moves its existence 
onto the Delphi services. Such articles would 
help solidify the community by helping us 
keep connected. I don't deny the need for 
other articles, but it seems the subject of 
telecommunications is underrated or over- 
looked (not covered as frequently), yet it is 
one of the things that holds our community 
together. It would be a terrible thing if our 
community broke up — it certainly would 
be the demise of our powerhouse 2-MHz 
CoCo. 

Jason Gross 

1122 Crosstown Boulevard 

Chaska.MN 55318 

We agree that telecommunications is 
very important to all CoCo users. This is 
why we see "Delphi Bureau" as such an 
important part of THE RAINBOW each month. 
And we encourage all CoCo owners to 
actively use the communications resources 
available. 

OS-9 Help and Pen Pals 

Editor: 

I want to know how to build fonts under 
OS-9 Level II and create music using BA- 
SIC09. I would also like to receive letters 
from prospective pen pals between the ages 
of 10 and 13. 

Nathan Price 

658 Bond Avenue 

Valparaiso. IN 46383 

Several programs for creating and edit- 
ing Level II fonts are available for down- 
loadingfrom the OS9 Online S1G on Delphi. 



We imagine there are at least one or two for 
creating music through BASIC09, as well. 

Pascal and Trouble Booting OS-9 

Editor: 

Regarding the inquiry by B.N. Gregoire 
in the December issue of THE RAINBOW, 
Tandy did market a Pascal compiler for OS- 
9 levels I and II. The product (Cat. No. 26- 
3-34) was reviewed in the December 1989 
issue of THE RAINBOW. In addition, it is 
currently in stock and available through 
Radio Shack Express Order. 

I have a Radio Shack FD-502 disk con- 
troller that runs with Disk BASIC. When I try 
to boot OS-9 with this controller by entering 
DOS, however, I get a syntax error. I don't 
have this problem with my Disto Super 
Controller II. Any suggestions? 

John Kolb 

20-4F Mosholu Pkwy. S 

Bronx, NY 10468 

We ' 11 venture a guess : Since you have the 
Disto controller, it is likely you have in- 
stalled and swapped a few different DOS 
chips between the controllers. Could you 
have installed Disk BASIC 1.0 (which dis- 
plays as 2 .0 on the CoCo 3 startup screen) in 
the FD-502 controller? Disk BASIC 1 .0 does 
not support the DOS command, whereas 
Disk BASIC 1 .1 (which displays as 2.1 on the 
CoCo 3) and most other DOSs do. 

Dueling Computers 

Editor: 

I liked the idea you presented about put- 
ting a PC next to your CoCo ("Print#-2." 
May 1 992) and decided to imitate it, though 
I'm not ready to invest the money required 
for a new Intel-based PC as you suggested. 
I decided to purchase a 640K PC-XT with a 
monochrome monitor, a hard drive, a mouse 
and some software. XT systems have been 
advertised in this area from $275 to $350 
with various accessories. 

I hope to use my Tandy DMP- 1 07 printer 
with both the CoCo 3 and the XT. The DMP- 
107 is supposed to support IBM codes if the 
DIP switches are set appropriately. Radio 
Shack sold me a DB25-to-36-pin printer 
cable (Cat, No. 26-288) that is supposed to 
connect the XT to the DMP- 107. 1 want to 
know if a switch box is available that would 
enable me to control which computer is 
connected to the printer without disconnect- 
ing all the cables. I'd also like to know if and 
how programs saved on tape for the CoCo 3 
might be loaded into the XT (other than by 
retyping them). 

R.L. Aldrich 

2505 Bernard 

Denton, TX 76205 

In addition to supporting DIP-switch 
control, it should be possible to put the 
DMP-107 into the IBM mode by sending 
(printing) a few control codes on a com- 
mand line from either computer. Many elec- 
tronics outlets offer parallel printer switches. 
Look through the ads in any electronics 
magazine for sources. We suggest you get 
the kind of switch that accepts 36-pin 
Centronics inputs. Also, you' 11 need an extra 
cable to go between the switch and the 
printer. 

Printing Sideways 

Editor: 

I have a CoCo 3 , an FD-502 disk drive, an 
RGB monitor and a DMP-107 with a Blue 
Streak Ultima serial-to-parallel interface. 1 
am having a problem with the program in 
"Printing Sideways" (April 1992). Every 
time I run this program, after the prompt 
"Condensed — Standard" appears, I receive 
an IE ERROR IN 670 message. 

Also, does anyone have the address for 



Sugar Software? I have some disks from 
Sugar and am having problems with them. 
My letters are returned marked "No For- 
warding Address." 

John W. Anderson 
1709 W.Union Street 
Lancaster, OH 43130 

We've tried to duplicate the problem 
you are having, and the only way we've 
been successful is to use an empty input 
file. Make sure the file you intend to print 
is a standard text file that actually contains 
text. In the meantime, we have forwarded 
your letter to the author. 

Needs Help With OS-9 

Editor: 

I have had a 1 28K CoCo 3 for about five 
years now. Although I am very experi- 
enced with the CoCo 3, there are many 
things about it that I don't understand 
about OS-9. When entering commands 
(such as date) at the OS-9 prompt, I fre- 
quently get errors (especially Error #249). 
Am I doing something wrong? Do I need 
special software? 

Also, what is BASIC09? And how do I 
type in those weird listings in the rain- 
bow? You know the ones that look like 

setend Ida #$0d carriage return 
sta .y+ to end of path 

Jesse Burt 

2 Lombard Lane 

Eastham, MA 02642 

Unlike Disk BASIC, OS-9 does not al- 
ways keep all of its commands in memory 
— there are simply too many of them. 
Generally, some commands are automati- 
cally loaded into memory when you boot 
OS-9. The others are saved as separate 
programs on disk and are loaded when you 
need them. 

When you enter an OS-9 command, the 
operating system first checks to see if the 
program is in memory. If so, OS-9 runs the 
command. If not, the system looks for the 
program in the current execution direc- 
tory on disk. For this reason, you should 
keep your OS-9 system disk in the current 
drive — at least until you gain a clear 
understanding of the directory structure 
OS-9 uses. 

An Error 249 is generated when you 
attempt a disk operation on a disk with a 
format OS-9 does not understand (e.g., a 
Disk BASIC disk, or an OS-9 disk with a 
different number of tracks or sides). The 
most common errors received by novice 
users are 214 and 216. Error 214 is a "no 
permission" error, which tellsyou thatyou 
don't have permission to do what you want 
to do. The most common cause for this 
error is trying to 1 i st a directory or per- 
form a dir on a single fde. Error 216 
means "pathname not found," which tells 
you a) you mistyped the command line (or 
included/omitted necessary spaces or 
slashes), or b) the filelprogram does not 
exist in memory or the current data and 
execution directories. 

Whew! We'll leave you other questions 
for other readers and a future issue. In the 
meantime, for more information, consult 
the "Getting Started" section of your OS- 
9 Level II manual. The knowledge you'll 
gain is well worth the time it'll take to read. 

Help With the Lingo 

Editor: 

Being a novice in the computer world, 
T am confused by the many different letters 
used to describe computers (e.g., EX, DX, 
AT, PS/2, CAD/CAM, etc.). I am sure 
these designations have some meaning. 
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but what they stand for is anything but clear 

to me at this time. Please be assured that I 

have asked around only to find that I am not 

alone in this. What 1 need is a list of words 

to go along with the letters so I can have 

some idea of what people are talking about. 

David Donnelly 

J 6/2 Diplomat Drive 

Fayetteville, NC 28304 

Some of the terms you mention are sim- 
ply names used by different manufacturers 
to designate different computer models. 
For example, EX is the last part of the name 
for a specific mode! of Tandy 1000 (as are 
HX, TX andRLX), and PS/2 is the name of 
a line of computers marketed by IBM. 

The other items you mentioned are acro- 
nyms for different computer techniques, 
terms and applications. For example , CADI 
CAM stands for Computer-Aided Design/ 
Computer-Aided Manufacturing. You can 
find definitions for this latter group of terms/ 
acronyms in any good computer dictio- 
nary. 



the RAINBOW welcomes letters to the 
editor. Mail should be addressed to: Let- 
ters to Rainbow. The Falsoft Building, 
9509 U.S. Hwy 42, P.O. Box 385, Pros- 
pect, KY 40059. Letters should include 
the writer's full name and address. Let- 
ters may be edited for clarity or to con- 
serve space. 

Letters to the editor may also be sent to 
us through our Delphi CoCo SIG. From 
the CoCo SIG> prompt, enter RAT. to get 
to the Rainbow Magazine Services area 
of the SIG. At the RAJNBOW> prompt, 
enter L ET to reach the LETTERS> prompt, 
then select Letters for Publication. Be 
sure to include your complete name and 
address. 



This listing is from "Are Your Joysticks Dead or Alive" on Page 1. 



CoCo 3, CoCo 1/2 Modification 




^ 








The Listing: JOYTCST 






120 FOR X=l TO 5000: IF BUTTON (1 
)<>1 THEN NEXT:PRINT"NO SECOND B 


1 'JOYTEST 






UTTON. I ASSUME. 




2 'B v TREVOR BCEHM 






130 PRINT"G0OD. 


OW MOVE STICK T 


3 'COPYRIGHT (C) 1993 






0:" 




4 # B V FAI SOFT. INC. 






140 PRINT" UPPER 


LEFT.. ." 


5 'RAINBOW MAGAZINE 






150 GOSUB 240: IF 


XO0 OR YO0 TH 


10 'CHECK YOUR JOYSTICK 






EN GOTO 150 




20 'FOR C0C01/2 ALTER BUTTON 






160 PRINT" LOWER 


LEFT..." 


30 'TO PEEK STATEMENT 






170 GOSUB 240: IF 


XO0 OR Y<>63 T 


40 CLS 






HEN GOTO 170 




50 PRINT"JOYTEST 1.0" 






180 PRINT" UPPER 


RIGHT.. ." 


60 PRINT"<C> 1992 BY FALSOFT. 


IN 




190 GOSUB 240: IF 


X<>63 OR YO0 T 


C." 






HEN GOTO 190 




70 PRINT"ALL RIGHTS RESERVED" 






200 PRINT" .OWER 


RIGHT.. ." 


80 PRINT:PRINT"PLUG JOYSTICK 


1*11 




210 GOSUB 240: U 


X<>63 OR Y<>63 


RIGHT PORT" 






THEN GOTO 210 




90 PRINT"AND PRESS BUTTON..." 






220 PRINT:PRINT" 


I0YSTICK CHECKS 


100 IF BUTTON(0)<>1 THEN GOTC 


10 




OUT OK!" 











230 END 




110 PRINT"N0W PRESS SECOND BUTTO 




240 X=JOYST<(0): 


'-JOYSTK(l) 


N. .." 






250 RETURN 


/7S\ 



Feature Program 



Skipper Shows last GET/PUT 
Operation 



by Keiran Kenny 



Skipper is a short program that uses 
"speed" GET/PUT commands to pro- 
duce an animated simulation of a 
girl jumping rope on the PM0DE4 
screen. The program requires at least 32K 
of RAM and Extended BASIC. 

Part of Skipper's speed is a result of the 
way storage space is allocated. In Line 20, 
space is set aside for ten 128-by- 1 28 frames. 
The DIM value of 409 was arrived at by 
dividing the square of 128 by 32, then 
reducing the value until I got an FC error, 
which occurred at DIMA(408). Using this 
method in other programs, I have succeeded 
in dimensioning space for twenty-six 48- 
by-48 frames, using 57 as the DIM value. 

AnotheraspectofSfcippe/'s speed comes 
from the way even multiples are used for 
defined locations. As shown in Line 110, 
the values for the top-left corner of a frame 
are multiples of eight, and the values for the 
lower-right corner are one less than a mul- 
tiple of eight. All GET/PUT statements in the 
listing conform to this protocol, and G or 
PSET options are not needed. 

Line 100 stores a 128-by- 128 area of 
blank screen, labeled A, for use as an eraser. 
Lines 130 through 160 draw the basic fig- 
ure, labeled B. Lines 180 through 400 add 
the skipping rope in eight different posi- 
tions, stored with labels C to J. All drawing 
is done behind the scenes. If you want to see 
the frames being drawn, add SCREEN1 , 1 to 
the end of Line 90. The 132-by-132 square 
in Line 120 was for my own guidance. To 
keep my figure within a 128-by- 128 rect- 
angle. I made sure there was a visible mar- 
gin of at least one pixel between any ex- 
tremity of the figure and the sides of the 
square. 

Lines 1000 through 1060 put frames C to 
J on the screen in succession. In Line 1060, 
the skipper jumps to allow the rope to pass 
under her feet — the eraser is needed before 
and after this. The short delay loop in the 
subroutine at Line 60 slows the action very 
slightly. If you change the value of 10 to a 
larger number, like 500 or 1000, you'll gel 
time-delay animation. 

The high-speed poke is in effect through- 



out program operation. Line 30 sets the 
values SP and SL according to whether you 
are using a CoCo 3 or an earlier model 
CoCo. Then the appropriate poke is issued 
in Line 40. During the display you can press 
CLEAR to stop the program and restore 
operating speed to normal. 

If you use any sort of boot utility on your 
disks, you may find that this program freezes 
at Line 80. If so, do a cold start and run the 
program directly from the disk. 

If you want to substitute your own graph- 
ics image for mine, add SCREENl.lto Line 
90 and enter a "stop" line: 980 GOTO 980. 
Draw your basic figure beginning at Line 
130 and, when it is complete, store the 
frame labeled B, as in Line 170. The subrou- 



tine at Line 70 puts the basic figure on the 
screen after you complete and store the 
subsequent frames. 

I hope you ' 1 1 agree that, despite the large 
size of the frames, the animation is fairly 
smooth and flicker-free. 




SL«© 



J 



Keiran Kenny's interests lie mainly with 
the Color Computer' s graphics and math 
capabilities. But in his own words, "1 like to 
try everything." He may be contacted at 
van Montfoortlaan 31 , 2596 SP The Hague, 
Holland. Please include a self-addressed 
envelope with sufficient postage when re- 
questing a reply. 
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The Listing: SKIPPER 


25.51):PSET(131.51):LINE(128,52) 


390 CIRCLE(128.96).34..1.9.0..5 




-(128,55).PSET:DRAW"BM128.57NL2N 


400 GET(X1.Y1)-(X2.Y2).J 


1 'SPEED GET/PUT SKIPPER 


R2" 




990 PCLS:SCRttNl,l 


2 'BY KEIRAN KENNY 


160 


DRAW"BM120.65M128,70M135,65B 


1000 PUT(X1,Y1)-(X2.Y2),C:G0SUB6 


3 'COPYRIGHT (C) 1993 


M114.75M118.65BR20M141.75BM121.4 





4 'BY FALSOFT. INC. 


9R3E2R2NU6RF2R3":PAINT(126.45),0 


1010 PUT(X1.Y1)-(X2.Y2).0:G0SUB6 


5 'RAINBOW MAGAZINE 


.0:PAINT(130.45).0.0 





10 CLS 


170 


GFTCX1 ,Y1)-(X2.Y2).B 


1020 PUT(X1.Y1)-(X2.Y2).E:G0SUB6 


20 DIMA(409).B(409).C(409).D(40 


9 180 


CIRCLEC128.96) .34. .1 .9. .5.1 





).E(409).F(409).G(409),H(409).I 


( 190 


GET(X1.Y1)-(X2.Y2),C 


1030 PUT(X1.Y1)-(X2.Y2),F:G0SUB6 


409).J(409) 


200 


GOSUB70 





30 IFPEEK(33021)=50 THENSP=6549 


7 210 


CIRCLE(128.96).34.,1.5,.5.1 


1040 PJT(X1.Y1)-(X2.Y2).G:G0SUB6 


:SL-65496ELSESP-65495:SL=65494 


220 


GET(Xl.Yl) (X2,Y2).D 





40 POKESP.0 


230 


GOSUB70 


1050 PUT(Xl.Yl) (X2,Y2).II:G0SUB6 


50 GOTO80 


240 


CIRCLE(128.96).34. .1.1, .5,1 





60 FORDL=1TO10:NEXT:RETURN 


250 


GET(X1,Y1)-(X2,Y2).E 


1060 PUT(X1,Y1)-(X2.Y2).I:G0SUB6 


70 PUT(X1.Y1)-(X2.Y2).B:RETURN 


260 


GOSUB70 





80 PRINT@224."0NE MOMENT PLEASE 


270 


CIRCLE(128.96).34. ..5. .5.1 


1070 PUT(X1.Y1)-(X2,Y2).A:PUT(X1 




280 


GET(X1.Y1)-(X2.Y2).F 


,Y1-16)-(X2.Y2-16),J:GOSUB60:PUT 


90PMODE4,1:COLOR0.5:PCLS 


290 


GOSUB70 


(X1,Y1-16)-(X2.Y2-16).A 


100 GET(0.0)-(127.127).A 


302 


CIRCLE(128.96).34,..5.0,.5 


1080 IFPEEK(135)=12THEN1100 


110 X1=64:Y1=32:X2=191:Y2=159 


310 


GET(X1,Y1)-(X2.Y2).G 


1090 GOTO1000 


120 LINE(62.30)-(193. 161). PSET. 


B 320 


GOSJB70 


1100 POKESL.0:CLS:END 


130 DRAWBM128.15016U35R12D35I6 


U 330 


CIRCLE(128.96).34..1.1.0..5 




35NL15R15M-6.-25BM113.115M+6.-2 


5 340 


GET(X1,Y1)-(X2.Y2).H 




M-6.-17M95.99U6M113.67E2R5E2U2' 


350 


GOSUB70 




140 DRAW"BM+11,+0D2F2R5F2M162,9 


4 360 


CIRCLEU28.96).34..1.5.0..5 




D6M141.73M137.90" 


370 


GET(X1.Y1)-(X2.Y2).I 




150 CIRCLE(128,52),8. ,1.4:PSET( 


1 380 


GOSUB70 


/«\ 
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EDDIE KUNS 



Delphi Adds More Internet Services 



Delphi has added both FTP and Telnet! 
These options are available only from the 
Internet SIG, so to find out more, just enter 
GO REFERENCE INTERNET to get to the 
Internet SIG. From there, enter FORUM and 
read Message 1 197. 

What are FTP and Telnet? FTP stands 
for File Transfer Protocol, and is the Internet 
protocol for transferring files from one com- 
puter to another. Like Internet mail, FTP 
file transfers count toward your monthly 
10-megabyte Internet transfer limit. As I 
explained a few months back. Telnet is the 
service that allows you to logon to a com- 
puter connected to the Internet from any 
other computer also connected to the 
Internet. This means you can use this ser- 
vice from Delphi as well as to Delphi. 

You still pay the same Delphi and tele- 



communications charges while Telnetted 
to another computer. However, most users 
can reach Delphi without paying long-dis- 
tance rates. Once on Delphi, they could 
connect to another computer that would 
otherwise incur long-distance telephone 
charges. These people may benefit by using 
the link from Delphi to Telnet to the remote 
computer. For example, college students 
who are home on vacation might be able to 
use Telnet to connect to a school computer 
without having to call long distance. 

If you are interested in using these fea- 
tures, you must read and follow the instruc- 
tions given in Message 1 197 in the Internet 
SIG Forum. There is no additional charge 
for using FTP or Telnet, but you must 
already have registered to use Internet ser- 
vices. Also remember that there are guide- 



lines for any use of Internet serv ices — read 
these guidelines before you sign up for any 
services. To learn more about exactly what 
services are available, enter USING INTERNET 
SERVICES at the main menu of the Internet 
SIG, then read the file I'M NEW ! WHAT DO 
I DO?. 



Eddie Kuns is pursuing a doctorate in 
physics at Rutgers University. He lives in 
Aurora, Illinois, and works as a program- 
mer and researcher at Fermilab. Eddie is 
the database manager of the OS9 Online 
SIG and can be reached online as 
EDDIEKUNS. 




ARTY GOODMAN 



What is MNP? 

^^^ Please explain the significance of 
" MNP level numbers in modem 
communication. How can MNP be of prac- 
tical use to me? 

John L. Wilkerson (JWILKERSON) 
Reynoldsburg, Ohio 

A MNP, which stands for Microcom 
Network Protocol (no relation to 
Microcom Software), capability typically 
is built into xhejirmware (software in ROM 
chips) of a modem. MNP levels 2 through 4 
enable the modem to automatically check 
for and correct errors that occur due to line 
noise when "talking" to. another modem 
with the same capability. Telenet and 
Tymnet (telecommunications services that 
can be used to connect to Delphi's CoCo 
and OS9 online SIGs) support MNP error 
correction if you are connected at 2400 hps. 
This means that if you use an MNP modem 
that is correctly set to use its MNP capabil- 
ity, all noise characters that occur when it is 
connected to Telenet or Tymnet at 2400 bps 
will be eliminated. The tricky part is telling 
the modem to use its MNP capability. 

In my experience, different modems re- 
quire different (and often confusing) com- 
mands to enable this capability, so it is 
usually essential that you have the manual 
for your modem — read the section on 
MNP operation several times. You need to 
set your modem to "Auto-Reliable" mode, 
in which it turns on its MNP capability 
when it sees the same capability in the 
modem it is calling. For my Racal Vadic 
2400-bps modem, I must enter (in com- 
mand mode) AT &*E1 to enable automatic 
error control, whereas on my Multitech 
2400-bps modem, the proper command is 
AT &E1. (After entering either of these. I 
entered AT &W to make the setting a power- 
up default.) 

There are other MNP options that many 
users find confusing. For instance, MNP 5 
and up are designed to be used for data 
compression. Neither Telenet nor Tymnet 
currently support MNP 5, and using MNP 



data compression can be problematical. 
MNP 5 data compression is usually not 
helpful if you are transferring files that have 
already been compressed using an archive 
program. Indeed, on occasion, MNP 5 can 
actually expand a compressed file, result- 
ing in an increase in the time it takes to 
transmit or receive it. Some modems sup- 
port other forms of error correction (CCTTT 
V.42) and other forms of data compression 
(CCITT V.42 bis). 

I use simple MNP error correction when 
logging on to the CoCo SIG, and I find it a 
nice convenience since it eliminates the 
occasional noise characters I used to get 
when listing longer Forum and Mail mes- 
sages. I don't find it all that important for 
Delphi use, though, because in acase where 
you absolutely must get an error-free trans- 
mission (e.g., downloading of binary files), 
you're going to use a protocol download 
(Xmodem, Ymodem or Zmodem) anyway. 
Such protocols assure error detection and 
error correction. Still, users who find line 
noise to be a bit of a problem will appreciate 
what MNP error correction can do. 

Model I Monitor for the CoCo 3 

j^^^ Can I use a TRS-80 Model I mi mih >r 
W with my CoCo 3? 

George Hill 
Haverhill, New Hampshire 

AYes,butit'stricky.TheTRS-80Model 
I monitor uses a 5-pin DIN plug for 
connection with the computer. One line on 
this plug is ground, and another line pro- 
vides composite video. You can use these 
with the composite-video port on the CoCo 
3. However, the Model I monitor also re- 
quires a well-regulated source of 5 volts DC 
on another pin of the 5-pin plug. Thus, 
you'll need an external 5-volt power supply 
to make the monitor work. 

Unfortunately, I don't recall what the 
pinout for the 5-pin connector is, and I have, 
no references for it here. If you arc able to 
track this information down, be sure that 
you hook both 5 volts and ground from the 
power supply to the appropriate pins of the 
monitor. If the monitor is working, it should 
accept the standard NTSC 1-volt peak-to- 
peak.compositc-vidco signal that the CoCo 
produces. 

Depending on your situation, it may not 
be worth the effort to resurrect the Model I 
monitor. Those monitors were of fairly 
poor quality even when new, and you can 
obtain much better used composite moni- 
tors for pretty low prices in most urban 
areas and through the classified-ads section 
on Delphi. 



Double-Sided Access 

•| What are the pokes for enabling 
f Disk BASIC to gain access to the back 
side of a double-sided disk drive? 

Bob Williams (BAW1LUAMS) 
Cedar Hill, Montana 

A If you are using Disk BASIC 2.0 on a 
CoCo 3, enter the following com- 
mand line: 

POKE &HD89F.&H41:P0KE &HD8A0.&H42 

These pokes define Drive 2 as the back side 
of Drive and Drive 3 as the back side of 
Drive 1 . If you are using Disk BASIC 2. 1 , use 
addresses D7AC and D7AD instead of D89F 
and 08A0 above. These pokes work only on 
a CoCo 3. 

A much better modification for using 
double-sided drives is found in ADOS 3. 
which not only redefines the drives but 
fixes some other subtle problems that cause 
the head of the drive to get "lost" whenever 
you switch between sides on the drive. 

Making a Modem Cable 

^^^ How do I construct a cable to con- 
" nect my RS-232 Pak to a modem? 
Fred Trivett (FREDT) 
Augusta, Georgia 

A Modems with DB-25 connectors con- 
nect "straight through" to the RS-232 
Pak. Actually, only pins 2, 3, 4, 5, 6, 7, 8 and 
20 are used, so if you are soldering your 
own cable, you really need only a nine- 
conductor cable. You may find, however, 
that your modem does not echo characters 
when you enter commands in the command 
mode before connecting. There are two 
ways to fix this. One is to issue the AT &C0 
command, then make this setting a default 
by entering AT &W. This works with many 
modern 2400-bps Hayes-compatible mo- 
dems that have internal non-volatile RAM 
for parameter settings. Alternatively, in- 
stead of hooking Pin 8 of the modem to Pin 
8 of the RS-232 Pak, try hooking Pin 8 of 
the RS-232 Pak to Pin 20 of the RS-232 pak. 
leaving Pin 20 also hooked to Pin 20 of the 
modem. This is another way to force the 
carrier detect line high in the RS-232 Pak, 
which is required to turn on its internal 
receiver. 

Slot/Multi Pak Repair 

k /' ve got a dead Howard Medical 
Slot Pak. Do you have any sugges- 
tions on where to start when repairing it? I 
believe it was blown when someone un- 
plugged a cartridge from it while the power 



was on. Do you have any tips for fixing a 
Radio Shack Multi-Pak Interface with a 
similar history? 

Dennis McMillan (COCOKIWI) 
Pittsburg, California 

A Howard Medical released a service 
notice a while back that indicated the 
most likely chip to get blown when a user 
removes a cartridge from the Slot Pak with 
the power on is the 74LS08 chip. Thus. I'd 
suggest you start by desoldering that chip, 
then installing a socket and a new 74LS08. 
Howard Medical also noted that the Slot 
Pak powers slots A and B from its external 
power supply, but the last slot is powered 
from the CoCo's power supply. This infor- 
mation may be helpful to those choosing 
which card to put in which slot, for you 
don't want to draw too much power from 
the CoCo (which has only 100 to 250 
milliamps to spare). 

For the Multi-Pak Interface, after testing 
the power supply, I'd consider replacing 
IC1 (an LS245 chip) and IC2 (an LS367 
chip). These chips have the same 1C num- 
bers on both models of the Multi-Pak Inter- 
face. 

Parallel Converter on the Blink 

/ have a Microfazer serial to paral- 
lel converter with 64K buffer built in 
that is now malfunctioning. Half the char- 
acters come out wrong. Any ideas? 

Ted Jaeger (TEDJAEGER) 
Fulton, Missouri 

A Often when half the characters printed 
are wrong, the problem is that a single 
bit in the parallel port is "stuck" either high 
or low. Compare the ASCII codes for the 
misprinted characters to see if you can find 
a single bit in the 7-bit ASCII representa- 
tions that, when forced high or low, would 
explain what you are getting. After this, you 
must find where that bit is stuck! Often the 
problem lies in the output latch (usually an 
LS373 or LS374 chip) on the parallel port. 
Determine which chip is supplying pins 2 
through 9 of the parallel ouput of the buffer, 
and see if replacing that chip helps. 



Martin H. Goodman, M.D., a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Cosell of 
the CoCo world. On Delphi, Marty is the 
SIGop of the rainbow's CoCo SIG. I lis 
non-computer passions include running, 
mountaineering and outdoor photography. 
Marty lives in San Pablo, California. 
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Advanced 
Forum Details 



Last month I described many of the 
key Workspace features and commands. 
Most of those we didn't cover relate to 
uploading and downloading files, but 
we'll first take a look at a few general 
commands. 

If you want to create a short file online, 
entering just a few lines of text, use the 
CREATE command. For example, suppose 
I was throwing a party and wanted to 
inform five local friends. I could use 
CREATE to build a Mail distribution list as 
follows (the italic text is what I enter): 

MS> CREATE PARTY. 01 S 

Ok, enter data, terminate with a 
CTRL/Z. or abort with a CTRL/C. 

GBROOKS 
M I THE L EN 
JOELHEGBERG 
LUCKY ONE 
RAGTIMER 
"Z 

PARTY. DIS 5 lines 

When I pressed CTRL-Z, Delphi saved 
the file in my Workspace as PARTY .DIS 
and reported the number of lines I en- 
tered. Notice that the editor used is the 
same one you use to edit Forum mes- 
sages; you can enter /EX IT to exit, /LIST 
to see what you have entered so far, 
/ E D I T to use your chosen editor (EDT or 
OLDie), or /QUIT to abort the create 
process. 

Another file manipulation command 
is APPEND. If you enter 

APPEND MAIL. TXT ARCHIVE.TXT 

the contents of M A I L . T X T are added to the 
endof ARCHIVE. TXT.then the whole thing 
is saved asa/iew version of ARCHIVE. TXT. 
After entering this command, the origi- 
nal HAIL. TXTfile is unchanged, and you'll 
have two versionsofARCHIVE.TXT. 

The D1R command supports many 
more options than I listed last month. 
One of the more useful directory options 
is DIR/GRAND_TOTAL/SIZE. This com- 
mand tells you how many files you have 
in Workspace as well as how much disk 
space is taken up by these files. (Delphi 
may charge you for less disk space than is 
shown by this command, depending on 
the amount of unused space in your 
MA I L.MAI file.) 

DI R supports exclusion modifiers that 
tells it to ignore certain files when listing 
the directory. For example, to tell Delphi 
to not display mail files, you would enter 

D1R/EXCLUDE=.MAI 

The /EXCLUDE modifier forces the direc- 
tory command to ignore these files. If 
you have multiple patterns (different file 
types, extensions, etc.) to specify, sepa- 
rate them with commas and put the group 
within parentheses as follows: 

DIR/EXCLUDE-(*.MAI. MEMO*.*) 

If you also want to see the file sizes and 
dates, you can add the qualifiers /SIZE/ 
DATE to the command line: 

DIR/SIZE/DATE/EXCLUDE-.MAI 



Two more useful qualifiers for DIR 
are /SINCE and /BEFORE, which are used 
to Delphi to display a directory of the 
files created or modified in a specific 
time interval. If no interval is specified, 
the default is TODAY (/SI NCE=T0DAY and 
/BEF0RE=T0DAV displays all files). You 
can specify /SINCE=YESTERDAY, or you 
can specify a date in the format 
/SI NCE-28- MAR- 1992. You can also use 
both /SINCE and /BEFORE with dates to 
specify a range in time. 

You can combine the /SIZE, /SINCE, 
/BEFORE, /EXCLUDE and /DATE qualifiers 
arbitrarily. The /GRAND_TOTAL qualifier 
is incompatible with the /DATE qualifier 
but can be used with any combination of 
the others. 

The PURGE command also has more 
qualifiers than I mentioned last month. If 
you want to purge old versions of one or 
more files but want to keep more than 
just the latest version, you can specify 
PURGE/KEEP-2 to keep the two most- 
recent versions of the file(s) you purge. 

The SETTINGS command drops you 
into the Settings menu, which is also 
available from the main SIG prompts. 
(From the CoCo SIG or OS9 Online 
prompt, enter SET PREFERENCES, fol- 
lowed by SETT INGS. This can be abbrevi- 
ated as SET SET). The Settings menu 
allows you to change various param- 
eters; we'll take a closer look at its op- 
tions another time. 

The final file-manipulation command 
available in the workspace is the EDIT 
command, which we have covered in 
detail in past issues. 

The most common use of Workspace 
is for uploading and downloading files. 
You can use most any file-transfer proto- 
col. Batch file-transfer protocols func- 
tion in Workspace, so you can upload or 
download several files with one file trans- 
fer operation. 

If you want to use Kermit to transfer 
files, tell Delphi to start the Kermit server 
on its end by entering KERMIT. Now start 
Kermit on your computer and use the 
Kermit GET and SEND commands to down- 
load and upload (respectively) files with 
Delphi. Terminate the Kermit server by 
sending the Kermit Finish command or 
by pressing three consecutive CTRL-Cs. 

The U P LOAD and DOWN LOAD commands 
initiate a file transfer using your current 
defaultfiletransfer. Enter the / FX_METH0D 
slash command to see what your current 
default file-transfer protocol is. If you 
preferto specify the file-transfer method, 
the OTH ER command shows you the com- 
mands that use a specific file-transfer 
protocol. Alternatively, enter UPLOAD 
MENU to see a menu of all supported 
upload methods (entering DOWNLOAD MENU 
works the same way). If you are down- 
loading with a batch protocol — one that 
allows you to transfer more than one file 
at a time — Delphi prompts you for 
filenames or file patterns until you press 
ENTER without entering a filename. 



DATABASE REPORT 



OS9 Online: 



General Information: 

6309 ADDITIONAL INDEXED MODES 

CURTISBOYLE Curtis Boyle 

KIX\30 MANUAL 

FHOGG Frank Hogg 

NEW FARNA ITEMS 

DSRTFOX Francis Swygert 

MICRO CHARTS 

JSUTEMEIER Jim Sutemeier 

KIX/30 EURO-K BUS PINOUTS 

FHOGG Frank Hogg 

ADVANCED UTILS FOR DSK INFO 

EDF.l.MAR EdGresick 

Applications (6809): 

ESP TESTER 

MIKE_GUZZI Mike Guzzi 

PRINTFORM 2.3 (REVISED) 

WOAY Jim Martin 

BRU 1.1: HARDDRIVE BACKUP UTIL 

WOAY Jim Martin 

System Modules (6809): 

KRNLUTILS: KERNEL CHANGING UTILS 
WOAY Jim Martin 

Gaines & Graphics: 

GWINDOWS ICON FOR TEXT EDITORS 
JSUTEMEIER Jim Sutemeier 

JACK-0- LANTERN FLICKER ANIMATION 
GRAPHICSPUB Bob Montowski 
KWINDOWS SCREEN SNAPS IN GIF 
MIKEHAALAND Mike Haaland 
IMASTER 1.01: IMAGE VIEWER/PRINT 
DODGECOLT Mike Sweet 

GIFSHOW 2.2 FOR THE MM/1 
MIKEHAALAND Mike Haaland 
GWINDOWS SAMPLE SCREEN (GIF) 
JSUTEMEIER Jim Sutemeier 

RUN PAC0S9 FROM MULTIVUE 
REDCOAT Don Joyce 

Music & Sound: 

SYSTEM_TEST: DIGITIZED SOUND 
MODEL299 Mark Stcincr 

Programmers Den: 

GUI.L: C GUI LIBRARY 
WTHOMPSON Wayne Thompson 



C++ LIB UPDATE 
VAXELF John Donaldson 

OSK Applications: 

QFED: FONT EDITOR FOR GWINDOWS 
PAULTESCH Paul Tesch 

GWINDOWS FILE RECOGNIZERS 
JSUTEMEIER Jim Sutemeier 

OSK Telecom: 

ATERM V2.6 (EXEC/SRC) 
SMARTCOCO Daniel Boulangcr 

STERM: MODIFIED FOR ZMODEM 
JSUTEMEIER Jim Sutemeier 

TERMINAL VERSION 1.0 
DODGECOLT Mike Sweet 

Tutorials & Education: 

PRCNV: PRINT ENVIRONMENT 
DPHILIPSEN Dave Philipsen 



Standards: 
DSHELL: GUI! 
ILLUSIONIST 



STANDARD DEMO 
Michael Graffam 



CoCo SIG: 



General Information: 

ATLANTA C0C0FEST3 REPORT 
SUBETHA Allen Huffman 

CoCo 3 Graphics: 

SKETCH3:DEM0 VERSION 
RACINEGUY David Potter 

TALKING PUMPKIN PROGRAM 
DRILI.MASTF.R Johnny Williams 
LEGENDS IN DS69B FORMAT (PIX) 
DRILLMASTER Johnny Williams 
PEROT IN CM3 
DRILLMASTER Johnny Williams 

Source for 6809 Assemblers: 

6309 NEW INDEXED MODES 
CURTISBOYLE Curtis Boyle 
DSKC0N & DSKINI 
MARTYGOODMAN Marty Goodman 

Product Reviews & Announcement: 

NEW FARNA PRODUCTS 
DSRTFOX Francis Swygert 



Uploads at a Glance 



In the OS9 Online General Informa- 
tion database, Curtis Boyle 
(CURTISBOYLE) released a file describ- 
ing some recently discovered addressing 
modes (extras) available in the 6309 
CPU. Curtis also submitted this infor- 
mation in the CoCo SIG's Source for 
6809 Assemblers database. In the Sys- 
tem Modules (6809) database, Jim Mar- 
tin (WOAY) uploaded a pair of utilities 
designed to make it easier to update the 
Kernel track of a boot disk. 

In the Games & Graphics database, 
Mike Haaland (miklhaaland) con- 
tributed some screen captures of typical 
windows under K Windows on the MM/ 
1. Jim Sutemeier (JSUTEMEIER) con- 
tributed a screen capture of a typical 
window using G-Windows. All of these 
images are in .GIF format. Jim also re- 
leased "file recognizers" for .AR and 
. LZH files under G-Windows — using 
these files provides icons for these file 
types. 

No less than three OSK terminal pro- 



grams were uploaded this month to the 
OSK Telecom database! Two of the 
three were updates to previous uploads, 
but it shows the life in the databases. 

Dave Philipsen (DPHILIPSEN) re- 
leased into the Tutorials & Education 
database the assembler source code for 
an OSK program that lists all environ- 
ment variables. Anyone who wonders 
how to gain access to environment vari- 
ables from within a program may find 
this source code useful. 

In the CoCo SIG ' s CoCo 3 Graphics 
database, Johnny Williams (DRILL- 
MASTER) uploaded a program that uses 
the Tandy Speech/Sound Pak to show a 
talking jack-o-lantern. 

In the Source for 6809 Assemblers 
database, Marty Goodman 
(MARTYGOODMAN) provided an article 
that examines the DSKC0N and DSKINI 
routines. If you are interested in the 
guts of disk I/O, you'll want to down- 
load this database group. 
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Feature Article 



Modifying OS- 
Window Descriptor 

By Ernest Bazzinotti, Jr. 

OS-9's windowing system is great, but entering all those 
display codes can be a real pain. Have you ever wished 
you could simply initialize a window and it would 
already be set up just the way you want without your 
having to enter a bunch of display orwcreate codes? If 
so, read on . . . 




T' he approach described here in- 
volves making changes to the actual 
device descriptors used for OS -9 
Level II's windows. To do this, 
you'll use the modpatch command that 
comes with OS-9. You'll also need the d ump 
and save commands, which are included 
with the OS-9 Development System. If you 
don't have the Development System, down- 
load similar utilities from Delphi or use an 
OS-9 disk editor. Though the approach will 
differ somewhat if you use a disk editor, the 
information provided here is enough to get 
you started. Some of you may even prefer to 
use a disk editor. 

Needless to say, since we're going to 
change the modules on disk, the first thing 
you need to do (if you haven't already done 
so) is make a backup of your OS-9 system 
master. Put the original disk away for 
safety's sake, and use the copy. 

With that little bit of housekeeping out 
of the way, you need to see what parameters 
are "hard-coded" into the window descrip- 
tors you want to change. Use the dump 
command to dump the contents of the de- 
sired window descriptor to the printer or 
screen. 

The offsets to the hard-coded para-meters 
in a window descriptor are shown in Figure 
1 . To see what values the desired window 
descriptor uses for a particular parameter, 
use Figure 1 to determine the proper offset, 
then look at the dump of the descriptor and 
find the value at that offset. Armed with this 
information, it should be a simple matter to 
build a patch file to make the necessary 
changes. 

First, jot down the offsets to the para- 
meters you want to change, as well as the 
current (old) values at those offsets and the 
(new) values you want to use (remember 
that these numbers must be in hexadeci- 
mal). Then use build or a text editor to 
build a standard patch file that uses 



002C 


screen width 


002D 


screen height 


0030 


screen type (text or graphics) 


0031 


horizontal coordinate 


0032 


vertical coordinate 


0033 


foreground color 


0034 


background color 


0035 


border color 


Figure 1: Window Parameters 



modpatch. To get you started. Listing 1 
shows a standard procedure file designed to 
change the descriptor for Window 5 to a 
Type-7, 80-column graphics window. Let's 
use this sample patch fde and step through 
the process. 

First, use dump to view the contents of 
the standard /w5 descriptor, which is stored 
in the M0DU L ES directory of the Boot/Config/ 
BASIC09 disk as w5 . dw. The result is shown 
in Figure 2. Now make a table of the para- 
meters you want to change. The changes 
we' 11 make to the /w5 descriptor are shown 
in Figure 3. Once you have this table to- 
gether, use it to build a modpatch file as 
shown in Listing 1 . 

To make the changes, j u st enter the name 
of the patch file (in this case, changew5), 
executing the script. To see your handi- 
work, enter the following commands to 
activate the window: 

iniz w5 
shell i-/w5& 

Press the CLEAR key to switch to the 
modified window. 

Once the changes are made to the mod- 
ule in memory, you can delete the original 
descriptor file from the -MODULES directory 
and use the save commandto save the new 



module there with the same name as the 
original. (Alternatively, instead of deleting 
the original, you could simply rename it to 
something like w5 . dw . ol d.) At this point, 
create a new boot disk so the changed 
window will be available when you boot 
the system. 

You can use this approach to change as 
many or as few of the window descriptors 
as you like. And remember, not all the 
parameters need to be changed — only the 
ones you want. Refer to Page 1-3 of the 
"Windows" section of the OS-9 Level II 
manual. The listing on this page will tell all 
you need to know about each of the win- 
dows supplied with OS-9. To give a better 
feel for the method I use to make the changes, 
refer to listings 2 and 3, which change the 
/w4 and /w8 descriptors to Type 2, 80- 
column text windows. 

If you're using a disk editor to make the 
changes, you will be altering the actual data 
on disk. First copy the original fde, say 
w5 . dw, to a "reserve" file, say w5 . dw . ol d. 
Then use the editor and the offset informa- 
tion to make the changes to w5 . d w. Once the 
modified module is written to disk, you still 
need to make a new boot disk in order for 
the modifications to be available when you 
boot the system. 

One of OS-9's strong features is its abil- 




Addr 


01 23 45 67 89 A B CD EF 02468ACE 


0000 
0010 
0020 
0030 
0040 


87CD 0043 0036 F181 B000 3800 3B03 07FF .H.C.6q .0.8. ; . . . 


0117 0305 0807 8000 0036 0000 130B 0501 6 

FF3D 0002 0704 57B5 5343 C643 4333 49CF .- W5SCFCC3I0 

C109 F3 A.s 

Figure 2: Dump of w5 . dw Descriptor 



Parameter 


Offset 


Old Value 


New Value 


Screen Type 


0030 


FF 




07 


Horiz. Coordinate 


0031 


3D 




00 


Screen Width 


002C 


13 




50 


Screen Height 


002D 


0B 




18 


Background 


0034 


07 




05 


Border 


0035 


04 




02 


Figure 3: Changes to w5 


dw 





ity to be altered for specific uses and pref- 
erences. I hope you find the modifications 
presented here to be useful. 



Ernest Bazzinotti works for Raytheon 
Co. and has used computers for three years, 
both as a hobby and for his work. He may be 
contacted at 91 Huggins Rd., Rockland, 
MA 02370, (617) 982-24 1 2. Please include 
an SASE when requesting a reply. 
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Listing 1: changew5 




modpatch -s 




1 w5 




c 0030 ff 07 




c 0031 3d 00 




c 002c 13 50 




c 002d 0b 18 




c 0034 07 05 




c 0035 04 02 




V 





Listing 2: 


:han 


gew4 


modpatch 


s 




1 w4 






c 002c 3c 


50 




c 002d 0b 


18 




c 0033 00 


U 




c 0034 01 


M 




c 0035 04 


0/ 




V 







Listing 3: 


:hangew8 


modpatch 


s 


1 w8 




c 002c 28 


50 


c 0030 01 


02 


c 0033 00 


02 


c 0034 01 


00 


c 0035 01 


02 
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RAINBOW 

Back 
Issues 



BACK ISSUES STILL AVAILABLE 

Have you explored Ihe wealth of informa- 
tion in our past issues? From our very first, 
four-page issue to many with more than 300 
pages of material, it's all just for CoCo users 
— a great way to expand your library! 

A WORLD OF INFO 
AT A BARGAIN PRICE 

All back issues sell for the single issue 
cover price. In addition, there is a S3.50 
charge for the first issue, plus 50 cents for 
each additional issue for postage and handling 
if sent by United Parcel Service. There is a $5 
charge for the first issue, plus a SI charge for 
each additional issue on orders sent by 
U.S.Mail. UPS will not deliver to a post office 
box or to another country. 



MOST ISSUES STILL AVAILABLE 

Available issues through June 1982 are 
provided on white paper in a reprint form. 
All others are in regular magazine form. 
VISA. MasterCard and American Express 
accepted. Kentucky residents please add 6 
percent sales tax: Canadian residents, 7 
percent GST. In order to hold down costs, we 
do not bill, and no C.O.D. orders are 
accepted. 

Due to heavy demand, we suggest you 
order the back issues you want now while 
supplies last. 

To order, review and fill out the form 
below and mail it with your payment. 

For greater convenience, order through 
the Rainbow Magazine Services area of our 
Delphi CoCo S1U. 



RAINBOW INDEX 

A complete index for, July 1981 through June 1984, is printed in 
the July 1 984 issue. Separate copies are available for $2.50 plus 50e 
handling. Indexes for subsequent years are published annually in the 
July issues of the rainbow. 

TOTAL 

KY RESIDENTS ADD 6% 

CANADIAN RESIDENTS ADD 7% GST 



U.S. MAIL CHARGE 

SHIPPING & HANDLING 

U.P.S. CHARGE 

TOTAL AMOUNT 

ENCLOSED 



Article Reprints 

In instances where a given issue is now out of print and not available for 
purchase, we do provide photocopies of specific articles. The cost for this 
service is $1 .50 plus 50 certs S/H per article. This service is provided only in 
Ihe case of out-of-stock issues. 
Name 



Address 


Citv State Zip 

3 Payment Enclosed, orCharge to my: 3 VISA LI MC 

Card# 


JAE 


Expiration Date Phone ( ) 


Signature 



TO ORDER BY PHONE (credit card orders only) call (800) 847- 
0309, 9 a.m. to 5 p.m. EST. All other inquiries call (502) 228-4492. 
send to: THE RAINBOW, The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059 



Please send me the following back issues: 



JUN83 

AUG 83 
SEP 83 
OCT 83 
MAR 84 
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JUL 8' 



AUG 84 
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Our ten year mission has 

; been to seek out new Coco 

; software and boldly provide 

• the biggest and best variety 

oS Coco programs. Our 

mission is complete! Our 

subscription service has 
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70 GRAPHIC DISKS! 



Set#l 

Clipart 
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More 



Set #2 
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Cartoons 

More 



Set #3 
R-Rated 
Women 

Adults Only 



Nan Sets 4,5,6,7 
Each set has a variety of: 

Business Clipart Grin 
Graphics. Spurts. Special 
Events Plus much more! 



Prices: 



Single Issue (Tape or Disk)... .$ 8.00 

2-5 ISSUES $6.00 

6-10 Issues $5.00 

11 or more Issues $ 4.50 

Graphic Sets $20 

All 120 Single Issues $250 

All 53 Public Domain Disks $145 

All Graphic Stes $140 



$6.00 

$5.00 Ea. 
$4.50 Ea. 
$4.00 Ea. 

$15 Ea. 
$125 
$75 
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Feature Program 



Alphabet Unscrambler 



by Keiran Kenny 



Alphabet is a short game intended 
for young children just learn- 
ing the alphabet. Parental or 
teacher guidance may be nec- 
essary to reinforce the learning process. 
Alphabet requires at least 16K and Ex- 
tended BASIC. 

When Alphabet is run, the alphabet ap- 
pears in on the PM0DE4 screen in big letters 
(32 pixels wide and 30 pixels high), but all 
the letters are out of order. The goal is to get 
them in the right order. To do this, the user 
moves the cursor until it surrounds the letter 
A. Then he presses the space bar, moves to 
where the letter A should be in the alphabet, 
then presses the space bar again. The A 
changes places with whatever letter was 
already in that position. With the A in the 
right place, the user follows the same pro- 
cedure with B, then C, and so on, until the 
alphabet is properly organized. When all 26 
letters are in the right place, the user should 
press ENTER, then he may choose whether 
to play again or end the game. 

As an alternative to using the arrow 




keys, pressing J when prompted at the title 
screen enables joystick control of the cur- 
sor. This may be easier for some users. 

I designed the program in such a way 
that the movement of the cursor box is fairly 
slow. This is intended to accommodate the 
reaction capacity of a younger child. To 
increase the speed of the cursor box, reduce 
the value of 500 (Variable DT) in Line 40. 

If you are not interested in using the 
program to unscramble the alphabet, delete 
lines 50 through 1 00, 1 70 through 470 and 
520 through 540, then rewrite the drawing 
portion to display your own messages on 
the screen in big letters. However, make 
sure you add a stop line such as 

990 POKE SL,0:GOT0990 

The character set, which appears in lines 
1000 through 1400, includes all letters and 
numbers, a space, a period, an exclamation 
sign, a dollar sign and an apostrophe. The 
strings for the characters are stored in 
Array L$, and the ASCII value of the 



characters are the subscripts to the array. 

You can use up to eight characters in 
each screen line for a total of five lines on 
the screen. Characters I, 1 , the period and 
the exclamation sign occupy less space, so 
you could get away with more characters if 
a line includes any of these. 

Follow the examples in lines 470 through 
510. Variable B sets the horizontal position 
and C dictates the vertical. The characters 
are drawn upward, so C must be set to at 
least 30 to draw on the top line. The vertical 
coordinate of each subsequent line should 
be set to not less than 32 points more than 
that used for the previous line. I used 40 
when writing Alphabet. 

As with most of my other programs, the 
high-speed mode is used 
in Alphabet. 



Line 30 sets the values for variables S P and 
S L to suit either a CoCo 3 or an earlier model 
of the Color Computer. The operating speed 
is returned to normal when the user presses 
E on the end screen to end the program. 



Keiran Kenny's interests lie mainly with 
the Color Computer's graphics and math 
capabilities. But in his own words, ' 'I like to 
try everything." He may be contacted at 
van Montfoortlaan 3 1 , 2596 SPThe Hague, 
Holland. Please include a self-addressed 
envelope with sufficient postage when re- 
questing a reply. 
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The Listing: ALPHABET 

1 'Al PHABFT UNSCRAMBLER 

2 'BY KEIRAN KENNY 

3 •COPYRIGHT (C) 1993 

4 'BY FA1S0FT. INC. 

5 'RAINBOW MAGAZINE 
10 CLS:CLEAR500 

20 DIMC(25),D(25).L$(90).LN(90) 

30 IFPEEK(33021)-50 THEI\SP-55497 

:SL-65496ELSESP-65495:SL-65494 

40 POKESP.0:DT-500 

50 PR1NT@38. " "ALPHABET UNSCRAMBLE 

R" 

60 PR1NT@128."BY KEIRAN KENNY. T 

HE HAGUE, 1992" 

70 PRINT@225."(A)RR0WS OR RIGHT 

(J)OYSTICK?" :PRINT@298. " 'PRESS A 

ORJ" 

80 KS-TNKFYS: IFK$<>"A"ANDK$<>' 'J" 

THEN80 

90IFK$-"J"THENJY-1 

100 GO~O140 

110 FORDL-1TO100:NEXT:RETURN 

120DRAW"BM"+STR$(B)+"."+STR$(C) 

130 FORT-lT0LEN(W$):IFMIDS(W$.T. 

1)-"I"THENDRAW'BL12":DRAWL$(ASC( 

MID$(WS.T,1)))+"BR3":NEXTELSE:DR 

AWL$(ASC(MID$(W$.T.1)))+"BR3":NE 

XI :REIURN 

140 PM0DE4.1 :COLOR0.5:PCLS:SCREE 

Nl.l 

150 GO"O1000 

160 H=8: V-39 

170 FORZ-65TO90:LN(Z)-Z:NEXT 

180 FORT-65TO90 

190 R-64+(INT(RND(-TIMER)*26)+l) 

200 IFLN(R)-0THEN190 

210DRAW"BM-H:.-V;"+L$(R) 

220 LN(R)-0 

230 H-H+40 

240 IFH>208THENH-8:V-V+32 

250 NEXT 

260 A-6:B-8 

270 IFJY THEN330 

280 IFPEEK(341)-247THENB-B-32 



290 IFPEEK(342)-247THENB-B+32 

300 IFPEEK(343)=247THENA-A-40 

310 IFPEEK(344)-247THENA-A+40 

320 GOTO380 

330 J0-JOYSTK(0):J1-JOYSTK<1) 

340 IFJ0<63THENA=A-40 

350 IFJ0>0THENA-A+40 

360 IFJK31THEN3-B-32 

370 IFJl>0THENB=B+32 

380 IFA<STHENA-6 

390 IFA>206THENA-206 

400 IFB<8THENB-8 

410 IFB>=136ANDA>46THENB-136:A=4 

6ELSEIFB>136THENB=136 

420 LINE(A,B)-(A+32.B+32),PSET.B 

:F0RDL-lT0DT:NEXT:LINE(A.B)-(A+3 

2. B+32), PRESET, B 

430 IFP-0 ANDPEEK(135)=32THENP-1 

:X1-A+2:X2-A+33:Y1-B+1:Y2-B+32:G 

ET(X1.Y1)-(X2.Y2).C:POKE135.0 

440 IFP ANDPEEK(135)-32THENX3«A+ 

2:X4-A-*-33:Y3-B+l:Y4-B+32:GET(X3. 

Y3)-(X4,Y4).D:PJT(X3.Y3)-(X4.Y4) 

,C:PUT(X1.Y1)-(X2.Y2).D:MV-MV+1: 

P-0:POKE135.0 

450 IFPEEK(135)-13THEN470 

460 IFJY THEN330ELSE280 

470 PCLS:B-0:C-31:W$-STR$(MV) + ' ' 

MOVES! ":GOSUB120 

480 B-0:C-71:W$-"HIT 'M' FOR": GO 

SUB120 

490B-48:C-111:W$-"MORE!":GOSUB1 

20 

500B-20:C-151:W$-"HIT 'E' T0":G 

OSUB120 

510 B-0:C-191 :W$=' 'END GAME. ' ' :G0S 

UB120 

520 KJ-INKEYS: IFK$<>"M' 'AN0K$O"E 

"THFN520 

530 IFK$-"M"THENMV-0:PCLS:GOTO16 



540 POKESL.0:CLS:ENO 

1000 L$(32)-' "BR5" 

1010 L$(33)-' 'BRHU3ENR3BU3HU20ER3 

FD20GNL3BD3FD3GNL3BR" 

1020 L$(36)-' 'BU3BR4H4U3R5D2F2R5B 

R4R6E2U2H2L6BL4L10H2U9E4R8BR4R8F 

403L5U2H2L5BL4L6G2D5F2R6BR4R8F4D 



4G4L8D3L4U3BU3U6BU3U9BU3U3R4D3BD 

3D9BD3D6BD3BL4L8BR24BD3" 

1030 L$(39)=' 'BU25U5R5D5G3L2E3L3B 

R5BD25" 

1040 L$(46)-' 'BRHU3ER3FD3GL2BR3" 

1050 L$!48)-' 'BR4H4U22E4R20F4D22G 

4L20BE5BH4NM+14.-15U12E4R10BF4NM 

-14.+15D12G4L10BD5BR19" 

1060 L$(49)-' 'BR2U28L2E2R5D30NL5" 

1070 L$(50H' 'NR28U10E4R16E4U4H4L 

11G4D2L4U5E5R18F5D10G5L17G3D3R24 

D4" 

1080 L$!51)-' 'BR4H4U6R5D4F3R12E3U 

3H3L10U4R10E3U4H3L12G3L5U3E4R20F 

4D9G3F3D7G4NL20BR4" 

1090 LH52)-' 'BR20U10L20U5M+20. -1 

5BD5D11L14M+14.-11BU5R5D16R3D4L3 

D10L5BR8" 

1100 L$;53)-' 'BR4F-4U6R5D4F3R12E3U 

7H3L20U14R28D5L23D5R19F4D12G4L20 

BR24" 

1110 L$(54)="BR4H4U22E4R20F4D6L5 

U4H3L12G3D10E3R16F4D9G4L19BE5BL2 

H2U2E2R14F2D2G2L14BD5BR20" ' 

1120 L$(55)-"U4M+23.-21L23U5R28D 

8M-20.+18D4L8BR28" 

1130 L$(56)-"BR4H4U7E4H4U7E4R20F 

4D7G4F4D7G4L20BE3H2U5E2R14F2D5G2 

L148U15H2U5E2R14F2D5G2L14BD18BR2 

1" 

1140 L$(57)-' 'BR4H4U4R5D2F3R12E3U 

6BU6U5H3L12G3D5F3R12E3BM-19.+18R 

20E4U22H4L20G4D12F4R16E3BD13BR5" 

1150 L$(65)-"M+11.-30R6M+11.+30L 

6M-3.-8NL8BM-2.-6M-1.-5L3M-1.+5N 

R4BM-2.+6M-3.+8L6BR28" 

1160 L$(66)-' 'U30R23F5D5G5F5O5G5L 

23BE5U8R15F2D4G?n5BU13U8R15F2D4 

G2L15BD18BR23" 

1170 L$(67)-' 'BR4H4U22E4R20F4G4H3 

L13G3D13F3R12E3F5G4L19BR23" 

1180 L$(68)-"U30R23F5D20G5L23BM+ 

6, 5U20R13F3D14G3L13BO5BR22" 

1190 L$<69)-' 'U30R28O5L23O7R20D5L 

20D8R23D5NL28" 

1200 LJC70)-' 'U30R28D5L23D7R20D5L 

20O13NL5BR23" 

1210 L$( 71 )-' "BR4H4U22E4R20F4G4H3 



L13G3D15F3R12E3L3U3R8D6G4N.20BR4 

1220 L$(72)-"U30R5D12R18U1?R5D30 

L5U13L18013L5BR28" 

1230 L$(73)-"BR12U30R5D30NL5" 

1240 L$(74)-' 'BR4H4U8R5D4F3R12E3U 

22R5D26G4NL20BR4" 

1250 Lt(75)-"U30R5D12M+18.-12R5D 

4M-12,+8M+12,+14D4L5M-13, -15M-5. 

+4D11L5BR28" 

1260 L$(76)-"U30R5D25R23D5NL28" 

1270 L$(77)-' 'U30R6FSE8R6D30L6U22 

G8H8D22L6BR28" 

1280 L$(78)-"U30R5M+18.+12U12R5D 

30L5U13M-18. -12025L5BR28" 

1290 LS(/9)-"BR4H4U22E4R20F4U22G 

4L20BE5H4U12E4R10F4D12G4L10BD5BR 

20" 

1300 L$(80)-"U30R23F5D5G5L18BU5U 

5R15F2DG2L15BD5D15L5BR28" 

1310 L$(81)-"BR4H4U22E4R20F4D16G 

5M+6.+5I 4M-3. -3G3I 14BM+5. -4BI 2H3 

U16E3R15F3D10G5L6D3R3G2L7BD3BR20 



1320 L$(82)-" 

+15L7M-13.-15 

D5D15L53R28" 

1330 L$(83)-" 

1E4U2H3L16H4U 

3G3D2F3R16F4D 

1340 L$(84)-" 

1D25L6BR17" 

1350 LS(85)-" 

4U22R5026G4NL 

1360 L$(86)-" 

25M+9.-25R5M- 

1370 L$<87)-" 

+15U25R5D30L8 

1380 L$(88)-" 

5M+9.+10M+9.- 

0D5L5M-9.-10M 

1390 L$(89)-" 

M+9.+13M+9.-1 

R17" 

1400 L$(90)-" 

7M-21.+18R21D 

1410 G0T01 



U30R23F5D5G5L8M+13. 
L3BU5U5R15F2DG2L15B 

BR4NR20H4U5R5D2F3R1 
10E3R22F3D5L5U2H2L1 
11G3BR3" 
BR11U25L11U5R28D5L1 

BR4H4U26R5D22F4R10E 

20BR4" 

BR11M-11. -30R5M+9.+ 

11.+30L5BR16" 

U30R5D25M+9.-15M+9. 

M-6.-9M-6.+9L8BR28" 

U5M+9.-10M-9.-10U5R 

10R5D5M-9.+10M+9.+1 

-9.+10L5BR28" 

BRI1U10M-11.-15U5R5 

3R5D5M-11.+15D10L6B 

U5M+22.-20L22U5R28D 
5NL28" 
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Old Glory 




by John R. Mott Jr. 



With the passing of the recent presidential 
election, most of the red, white and blue banners 
and signs have disappeared from yards and tele- 
phone poles around town. To keep in touch with 
the patriotic feeling, I thought it might be appro- 
priate to write this little BASIC program. 

Old Glory is a simple program that displays 

the American flag in all its glory. Though the 

program requires a CoCo 3, you can save it on 

ither tape or disk. After doing so, simply enter 

hen sit back and watch the CoCo 3 go to 



John R. Mott Jr. is a retired truck driver and 
mechanic who has been interested in computers 
and electronics for several years. He may be 
conlB^B 9822 North 15th Street, Apt. B, 
Phoenix.lfc, 85020-1810. Please include an 
S ASE wheAcqucsting a reply. 



The Listing: 0LDGL0RY 

1 'AMERICAN FLAG 

2 'BY JOHN R. MOTT JR. 

3 'COPYRIGHT (C) 1993 

4 'BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 
10 PCLEAR4:WIDTH80 
20 HSCREEN4 

30 HCLS5 

40 PALETTERGB:=ALET T E0.63:PALETT 

El. 36 

50 HC0L0R3.1 

60 HLINE(0.5)-(640.i87).PSET.B:H 

LINE(220.5)-(220.103).PSET:HLINE 

(0. 103) -(220.1 03). PSFT:HI INE(220 

,19)-(640.19).PSET:HLINE(220.33) 

-(640.33).PSET:HLINE(220.47)-(64 

0.47).PSET:HLINE(220.61)-(640.61 

).PSET:HLINE(220.75)-(640.75).PS 

ET 

70 HLINE(220,89)-(640.89).PSET:H 

LINE(220,103)-(640,103).PSET:HLI 

NE( 0.117) -(640.11 7), PSET :HLINE(0 

. 131) -(640. 131 ).PSET:HLINE( 0.145 

)-(640.145).PSET:HLlNE(0.159)-(6 

40,159).PSET:HLINE(0.173)-(640,1 

731.PSET 

80 HPAINT(320.12).3.12:HPAINT(32 

0.26).12.12:HPAINT(320.40).3.12: 

HPAINT(320.54).12.12:HPAINT(320. 

68).3.1?:HPAINT(3?0.82).12.12:HP 

AINT(320.96).3.12:HPAINT(320.110 

) . 12, 12 

90 HPAINT(320.124).3.12:HPAINT(3 

20. 138 ). 12. 12 :HPA INK 320. 152). 3. 

12:HPAINT(320.164).12.12:HPAINT( 

320.180),3.12:PALETTC1.9:HPAINT( 



136. 54). 1.12 

100 F0RX-8TC198STEP38 

110 FORY-14TO94STEP20 

120 HUN-E(X.Y)-(X+5.Y),PSET:HLIN 

E(X+5.Y)-(X+7,Y-5).PSET:HLINE(X+ 

7.Y-5)-(X+9.Y).PSET:HLINE(X+9.Y) 

-(X+14,Y).PSET:HLINE(X-t-14.Y)-(X+ 

9,Y+2).PSET:HLINE(X+9.Y+2)-(X+14 

.Y+b),PSET:HLlNE(X+14.Y+5)-(X+7. 

Y+3).PSET 

130 HLINE(X+7,Y+3)-(X,Y+5).PSET: 

H L I NE( X . Y+5 ) - ( X+5 . Y+2 ) . PSET : HL IN 

E(X+5.Y+2)-(X.Y).PSET:HPAINT(X+7 

.Y) .12 .12 

140 NEXTY.X 

150 F0RH-27T0179STEP38 

160 FORV-24TO84STEP20 

170 HLINE(H.V)-(H+5.V).PSET:HLIN 

E(H+5.V)-(H+7.V-5).PSET:HLINC(H+ 

7,V-5)-(ll+9.V).PSET:HLINE(H+9.V) 

-(H+14.V).PSET:HLINE(H+14,V)-(H+ 

9,V+2).PSET:HLINE(H+9.V+2)-(H+14 

,V+5).PSET:HLINE(H+14.V+5)-(H+7. 

V+3).PSET 

180 HLlNE(H+7,V+3)-(H.V+5).PSET: 

HLINE(H.V+5)-(H+5.V+2).PSET:HLIN 

E(H+5.V+2)-(H.V).PSET:HPAlNT(H+7 

.VJ.12.12 

190 NEXTV.H 

200 PALETTE2.54:HLINE(0.0)-(640. 

5).PSET.B:HPAINT(320,2).14.12:HL 

INE( 0.187) -(640, 192), PSET. B:HPAI 

NT(320.189).14.12 

210 GOTO210 

220 'REM 1317 BYTES 




Save Money Too! 

Subscribe to these convenient services and receive each month's programs in a ready-to- 
run form . No more long tedious hours wasted typing ! No more red eyes and sore fingers ! All 
you do is load and run, using the current issueof THE RAINBOW asdocumentation. 

OS-9programsareavailabletoo!Onesideof the RAINBOWON DISK isformattedforthe 
OS-9 operating system (OS-9 programs cannot be put on tape) so you can get all thegreat 
programs in the magazine. 

Aone-yearsubscriptiontoTHEFlAINBOWandRAINBOWONTAPEisonly$91intheU.S., 
$1 08 in Canada, $ 1 53 foreign su rface rate and $1 88 foreign airmail . 

Aone-yearsubscription to THE RAINBOWand RAINBOWON DISK isonly$1 1 5inthe U.S. , 
$1 38 in Canada, $ 1 83 foreign surface rale and $21 8 foreign airmail U.S. currency only. Back 
issuesofbothRAINBOWONTAPEandRAINBOWONDISKarealsoavailableliseeourback 
issue ad in this issue) 

RAINBOWONTAPEbackissuesareavailablebeginningwith the April 1982 issue. A single 
copy of RAINBOWONTAPEis$10within the U.S., $12in allother countries. Theannual 
subscription for RAINBOWONTAPE is S80withintheU.S.;$90inCanada;andS105for all 
other countries. U.S. currency only. 

RAINBOWON DISKback issues areavailablebeginning with the October 1986 issue. A 
singlecopyofRAINBOWONDISKis$12withintheU.S..$14inCanada,$16inallothercount- 
ries.The annual subscription for RAINBOW ON DISKis$99 within theU.S.;$115in Canada; 
and$1 30 for all other countries. U.S. currency only. 



Yes! Sign me up for a joint 1-year subscription (12 issues) to: 

Zl THE RAINBOW 
and Rainbow on Tape 

_l New 

Name 

Address 

City 

State 



J THE RAINBOW 
and Rainbow on Disk 

J Renewal (attach labels) 



Zip 



□ My check in the amount of is enclosed. 

Charge to: □ VISA 3 MasterCard J American Express 

Account Number 

Expiralion Date Signature 

For credit card orders, call (800) 847-0309, 9 a.m. to 5 p.m. EST. All other inquiries 

call (502) 228-4492. 

* Payment must accompany order; we do not bill. U.S. currency only, please. 

Kentucky residents add 6% sales tax; Canadian residents, 7% GST. Please allow 

6 to 8 weeks for delivery of first copies. All subscriptions begin with the current 

Issue. 

Please note : While group purchases of RAINBOW ON TAPE and RAINBOW ON DISK 

are permitted (and multiple subscriptions are even discounted if purchased in one order 

from a club), no license to make copies is conveyed or implied. Unauthorized copying 

of any copyright product is strictly illegal. 
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Do You Rest 
Easy at Night? 




THE RAINBOW is the only publication that offers peace of mind to CoCo 
users. Members of the CoCo Community have always looked to THE 
RAINBOW for comfort— hints, tips, the latest news and communication with 
others — for their Tandy Color Computers. 

THE RAINBOW continues to serve and support CoCo users, from 
beginners to the advanced, by covering the wide variety of topics affecting 
the CoCo Community. Looking for games? Telecommunications pack- 
ages? Finance programs? Interested in helpful utilities? Hands-on hard- 
ware projects? Want to take the guesswork out of buying software and 
hardware? From Disk BASIC to OS-9, THE RAINBOW has the answers to 
all your CoCo questions. 

Get rid of your nightmares by renewing your subscription today. THE 
RAINBOW — the best security blanket for a good night's rest. 



Use our 800 number! 

For credit card orders, you may phone in your subscription. Our credit 
card order number is (800) 847-0309, 9 a.m. to 5 p.m. EST. We accept VISA, 
MasterCard and American Express.AII other inquiries call (502) 228-4492. 



Yes! Please send me RAINBOW Magazine. 

Choose one: 3 New J Renew (attach label) 

Zi One Year $31 — 35% off cover price 
3 Two Year $58 — 39% off cover price 
3 One Year $79 — 44% off cover price 

Which Tandy Color Computer do you use? 
■J CoCo 1 □ CoCo 2 □ CoCo 3 

Name 

Address 

City 



State 



ZIP 



_l My check in the amount of is enclosed. 

Charge to: □ VISA □ MasterCard □ American Express 

Account Number 

Expiration Date 



Signature 



Subscriptions to THE RAINBOW are $31 a year in the United States. Canadian rate is 
$38 plus 7% GST (U.S. funds only). Surface rate elsewhere is $68 (U.S.). Non-US. 
subscribers must inquire about multi-year discount. Airmail is $103 (U.S.). Kentucky 
residents add 6% sales tax. All subscriptions begin with the current issue. Please allow 
6 to 8 weeks for the first copy. In order to hold down non-editorial costs, we do not bill. 

For credit card orders, call (800) 847-0309, 9 a.m. to 5 p.m. EST. All other inquiries 
call (502) 228-4492. 



VEF Graphics from Page J 

produce colors, all palette values need to be 
converted from their RGB values. Although 
the conversion does not create exact equiva- 
lents, the results should be close enough for 
most images. Still, these values can always 
be edited with the Change Palette option 
found on VEFit's Main menu. 

Menu Options 

To select an option from a VEFit menu, 
use the arrow keys to point to the desired 
option, then press ENTER. To exit VEFil 
and return to BASIC, press BREAK. To 
return to the Main menu from a submenu, 
press Q. Errors encountered while the pro- 
gram is running are reported, but they may 
result in altered palette values due to BASIC'S 
error-handling routines. If such a situation 
arises, you may need to use the Change 
Palette option to reset the proper palette 
values. Following are VEFit's Main menu 
options: 

Load Picture: VEFil searches for 
filenames with a . VE F extension, if none are 
found, you are prompted to return to the 
Main menu. Otherwise a list is displayed 
for selection. Since a regular disk can hold 
up to only nine images (depending on then- 
resolution), a maximum of 1 6 filenames are 
displayed onscreen. Once you make a se- 
lection, the filename and a status bar are 
displayed to indicate loading progress. 
When loading is complete, the picture is 
displayed in the resolution specified in the 
VEF file. When you finish viewing the 
picture, press any key to return to the file 



selection menu. Loading time varies from 
45 to 90 seconds, depending on picture 
resolution. 

Change Palette: The 16 current palette 
values are displayed for editing. Upon 
choosing a palette to edit, use the up-arrow 
to increase or down-arrow to decrease the 
palette value. After you load a picture, you 
may toggle between the graphics and text 
modes by pressing the space bar. This toggle 
feature is also active after you select a 
default HSCREEN with the Memory Display 
option below. In thegraphics mode, changes 
to the palette are seen onscreen as you edit. 
Press ENTER to record the changes and 
return to the palette selection menu. 

Save (four menu choices): Before sav- 
ing, ensure that the image to be saved is in 
HSCREEN memory and that the proper pal- 
ette values are set. You can use the Memory 
Display option to preview the picture first. 
After you select the appropriate Save op- 
tion from the Main menu, the disk is checked 
for free space. If there is sufficient disk 
space, you are asked to enter a fi lename, or 
you can press ENTER to abort the save. If 
a duplicate filename exists on the disk, you 
are prompted to abort the save or overwrite 
the existing file. After passing all these 
checkpoints, the filename and a status bar 
are displayed to indicate saving progress. 
When saving is complete, you are returned 
to the Main menu. Save times vary from 20 
to 45 seconds, depending on the save reso- 
lution you choose. 

Memory Display: This option allows 
you to view HSCREEN memory in four differ- 

VEF Graphics continued on Page 12. 



00100 




ORG J5FDA 




00110 




LDY 2.X 


Make Y: 2+X (address of STRING) 


00120 




LDX #$6000 


Make X: Address of memory block 


00130 




INC COUNT 


Increase count for # 128 bytes 


00140 




LDA COUNT 


Load count. . . 


00150 




CMPA #$40 


Has 64 (64x128 = 8192) been read? 


00160 




BNE P2 


If not. jump to P2 


00170 




CLR COUNT 


Else clear count for begin screen 


00175 




DECA 


And decrease for last time around 


00180 


P) 


LEAX 128.X 


Make X: X+128 bytes/find right line 


00190 


P2 


DECA 


Decrease count 


00200 




BNE PI 


Loop back to PI if not done adding 


00210 




LDA #$80 


Load 128 for counter 


00220 


P3 


LDB ,X+ 


Load byte from screen memory 


00230 




STB ,Y+ 


Store in return string 


00240 




DECA 


Decrease count 


00250 




BNE P3 


Done? If not, back to P3 for next byte 


00260 




RTS 


Return to BASIC 


00270 


COUNT 


RMB 1 


Counter of 128 multiples 


00280 




END $5FDA 








Figure 2: VEFIT Assembly-Language Routine 



00100 


ORG $5FBA 


00110 


JSR $B3ED 


00120 


ADDD #$04 


00130 


TFR D.X 


00140 


LDA #$08 


00150 HI 


LDB .X 


00160 


CMPB #$7F 


00170 


BHI H3 


00180 


CMPB #$3F 


00190 


BHI H2 


00200 


ADDB #$40 


00210 


BRA H3 


00220 H2 


SUBB #$40 


00230 H3 


STB ,X+ 


00240 


DECA 


00250 


BNE HI 


00260 


RTS 


00270 


END $5FBA 



Put USR(PRINT@) location in D 

Add $0400 to point to screen memory 

Transfer D into X 

Characters to hilite (POKE &H5FC3.#) 

Read character from screen memory 

If video code>127 then... 

Leave and write back to screen (H3) 

IF video code>63 (capital) then... 

(-)64 from video code to lowercase (H2) 

Flse (+)64 to video code to uppercase... 

And write to screen (H3) 

Subtracts 64 from video code 

Write character to screen 

Decrease count to hilite 

Done? If not, back to HI to convert next 

Return to BASIC 



Figure 3: HILITE Assembly-Language Routine 
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CoCo 3 Disk 



The Listing: VEFIT 

1 'VEFIT 

2 "BY THOMAS WONG 

3 'COPYRIGHT (C) 1993 

4 'BY FALSCFT. INC. 

5 "RAINBOW MAGAZINE 

10 • «___ . _. 



vefIT 1.1:RSD0S PIX UTILITY 

12 WIDTH 32:CLEAR 1500.&H5FB9 : PO 

KE 4HE6C6.8H33 

14 DIM PA(15).AA$(2).AB$(68):LA= 

0:MA-2 

16 AA=1:AA$="BDB3EDC304001F01860 

8E684C17F220AC13F2204CB402002C04 

0E7804A26EB3910AE028E60007C5FFFB 

65FFF814026087F5FFF4A308900804A2 

6F98680E680E7A04A26F939" 

18 FOR AB-SHbFBA 10 &H5FFE 

20 AC-VAL("&H"+MID$(AA$.AA.2)):P 

OKE AB.AC:AA=AA+2 

22 NEXT AB 

24 DEFUSR0-&H5FBA:DEFUSR1=&H5FDA 

26 ON BRK GOTO 458:0N ERR GOTO 4 

52 

28 AA$=CHR$(174)+STRING$!30.172) 

+CHR$(173)+CHR$(170)+STRING$(30. 

32)+CHR$(165)+CHR$(171)+STRING$( 

30,163) 

30 LA$-"000C020E070905101C2C0D1D 

0B1B0A2B221 112210301 13321E2D1F2E 

0F3C2F3D1708150627162636192A1A3A 

182928381404233325352434203B313E 

3739303F" 

32 SA$="0015021431062304210b0L0C 

010A031C07111216302225202C282A0D 

080B181A38131032363426242E2D290F 

09191B1E3E3A17333735273C2F3D2B39 

1D1F3B3F" 

34 CLS:PRINT@0.AAS;CHR$(167):PRI 

NT@416.AA$;:P0KE &H5FF.&HA7 :PRIN 

T@33,"vefIT - RSDOS PICTURE UTI 

LITY"; 

36 PRINT@449, "CHOOSE A MONITOR T 

YPE TO BCGIN"; 

38 GOSUB 320:GOSUB 388 

40 GOSUB 408 

42 PRINT@131."L0AD A PICTURE":PR 

INTS163, "PALETTE CHANGE": PRINTS1 

95. "SAVE [320 X 200: 4 COLORS]": 

PR1NI@22/."SAVL [320 X 200: 16 C 

0LOR]":PRINT®259,"SAVE [540 X 20 

0: 2 C0L0RS]":PRINT@291."SAVE [6 

40 X 200: 4 COLORS]" 

44 PRINT@323. "MEMORY OISPLAY":PR 

I NT@355. "MONITOR RESET" :PRINT@44 

9. "[ARROWS] TO SELECT AND [ENTER 

]": 

46 AD=1:AE=8:AF=28:AC— 130:GOSUB 

358 

48 IF AB$OCHR$(13) THEN 46:ELSE 

GOSUB 388 " 
50 ON AJ G0SU8 56.148.196.196.19 
6,196,294.318 
52 GOSUB 388:G0TO 42 
54 '* LOAD PIX * 
56 PRINI@449, "[ARROWS] SELECT FI 
LE OR [Q]UIT"; 
58 GOSUB 428 

60 IF AN-0 THEN SOUND 200,1 :PRIN 
T@228."N0 PICTURES ON THIS, DISK" 
:PRINT@260. "[PRESS ANY KEY FOR M 
AIN]";:G0SUB 394:RETURN '-■ 
62 IF AN>16 THEN AN-16 
64 LB-0:LC-0 

66 PRINT@(128+UB*32)+((LC*16)+2 
)),AB$((LB*2)+LC+1); 
68 LC-LC+1 

70 IF AN-((LB*2)+LC) THEN 74 
72 IF LC-3 THEN LB-LB+1 :LC=0:GOT 
66.-ELSE 66 

74 A0-2:AE-8:AF-14:AG-129:AH-16: 
GOSUB 358 

76 IF AB$="Q" THEN RETURN 
78 L0-((AJ-1)*2)+(AI-1)+1 
80 IF LD<-AN THEN LBJ-AB$( LD) :G0 
SUB 388:ELSE SOUND 200. 1: PRINTS4 
49. "INVALID SELECTION: PRESS A K 
EY";: GOSUB 394: RETURN 
82 PRINT@225, "LOADING PICTURE [" 
:LB$:"]":PRINT@257. "STATUS: [";S 
TRING$(20.191):"]":PRINT@449.STR 
ING$(30,128); 
84 OPEN "D".#l.LB$.l 
86 FIELD #1.1 AS LC$ 
88 GET #1,2:LA=ASC(LC$):IF LAO 
THEN LE-250:LF-12:ELSE LE-125:LF 
-7 

90 LA-VAL(MID$("24013".LA+1.D) 
92 FOR LG-3 TO 18 
94 GET #1.LG: IF MA-0 THEN PA(LG- 
3)=VAL("&H"+MID$(LA$.(ASC(LC$)*2 
)+1.2))+64:ELSE PA(LG-3)-ASC( LC$ 



)+64 

96 NEXI LG 

98 LD$-"" 

100 FOR LG=L0F(1)-17 TO LOF(l) 

102 GET #1.LG:LD$=LD$+LC$ 

104 NEXT LG 

106 CLOSE #1 

108 IF IA-0 THEN GOSUB 388:S0UND 

200. 1:PRINT@227. "TYPE 2 VEF'S N 
OT SUPP0RTED":PRINT@259, "[PRESS 
A KEY TO MAIN MENU]":GOSUB 394:R 
ETURN 

110 OPEN "D",#1.LB$,128 
112 FIELD #1,128 AS LC$ 
114 LH-0:LI-48 

116 POKE &H5FF8.&HA0:POKE &H5FFA 
,&H80:POKE &H5FFF.0 
118 GET #l,LF-l:LE$-RIGHT$(LC$.l 
10) 

120 POKE &HFFA3.LI 
122 IF LEN(LE$)>128 THEN LF$=LEF 
T$(LE$.128):LE$-RIGHT$(LE$.LEN(L 
E$)-128):ELSE 128 
124 LF$=USR1(LF$):LH=LH+1 
126 IF LH=64 OR LH-128 OR LH=192 

THEN LI-LI+1:GOTO 120:ELSE 122 
128 IF LF>LE THEN LF$-USR1( LE$+L 
D$):GOTO 140 
130 Lr$-LC$ 

132 GET #1,LF:LF-LF+1:LE$=LC$ 
134 LJ«128-LEN(LF$):LF$-LFS+LEFT 
$( LE$ , LJ) : LEJ-RIGHT*( LE$ . LEN( LE$ 
)-LJ) 

136 LK=INT((LF/LE)*20):PRINT@266 
,STRING$(LK,175): 
138 GOTO 124 
140 CLOSE #1 

142 GOSUB 418:HSCREEN LArGOSUB 3 
94:G0SUB 40?:HSCRFFN 
144 GOSUB 388:G0T0 56 
146 '* PALETTES * 
148 IF LA>0 THEN PRINT@419. "[ARR 
OWS] ROTATE [SPACE] [Q]UIT";:ELS 
E PRINTS449. "[ARROWS] ROTATE PAL 
ETTE [Q]UIT"; 
150 FOR PA-0 TO 7 
152 PB-PA(PA)-64:PA$-RIGHT$(STR$ 
(PB),Z):IF PB<10 THEN MIOSCPAJ.l 
,1)="0" 

154 PB-PA(PA+8)-6«:PB$-Rl'GHT$(ST 
R$(PB),2):IF P8<10 THEN MID$(PB$ 
,l.l)-"0" 

156 PC$-RIGHT$(STR$(PA+8).2):IF 
(PA+8X10 THEN MID$(PC$.I.l)-"0" 
158 PRINT@(131+(PA*32)),'"PAL 0": 
RIGHT$(STR$<PA).l);": ":PA$:" 

PAL ";PC$;": ";PB$ 
160 NEXT PA 

162 AD-2:AE~8:AF-13:AG-130:AH-16 
: GOSUB 358 

164 IF AB$-"Q" THEN RETURN 
166 PC=USR0(AG):PD-AJ+(<AI-1)*8) 
168 IF PD<9 THEN PE=139:ELSE PE- 
155 

170 PE-PE+((AJ-l)*32):PF-0 
172 PG-PA(PD-1)-64:PD$-RIGHT$(ST 
R$(PG).2):IF PG<10 THEN MIDKPDt 
,l.l)-"0", 
174 PRINT@PE,PO$; 
176 GOSUB 394 

178 IF AB$="Q" THEN GOSUB 402:HS 
CREEN 0: RETURN 1. 
180 IF AB$-CHR$(10). THEN PG-PG-1 
:IF PG<0 THEN "PG-63 .'.'"' , . -. . 
182 IF AB$=CHR$(94) THEN PG-PG+1' 
:IF PG>63 THEN PG-0 
184 PA(P0-l)-PG+64 
186 IF AB$-CHR$(32) THEN PF-PF+1 
:IF PF>1 THEN PF-0:GOSUB 402: ELS 
E PF-LA 

188 IF PF>0 THEN GOSUB 418 
190 HSCREEN PF 

192 IF AB$OCHR$(13) THEN 172 :EL 
SE GOSUB 402:HSCREEN 0:PC-USR0(A 
G):GOTO 150 
194 '* SAVE PIX * 
196 IF AJ-3 OR AJ-5 THEN SA-7:EL 
SE SA-14 

198 IF FREE(0XSA THEN SOUND 200 
,1:PRINT@228,"N0T ENOUGH SPACE 
N DISK":PRINT@260. "[PRESS ANY KE 
Y FOR MAIN]";:GOSUB 394:RETURN 
200 PRINT@449."TYPE FILENAME: [E 
NTER] TO MAIN": :PRINT@227. "ENTER 

FILENAME: [ ]" 

202 SA=0:SB$="":PRINT@244.CHRJ(1 
75): 

204 GOSUB 394 

206 IF AB$OCHR$(8) THEN 214 
208 IF SA>0 THEN SA-SA-1 : SBS-LEF 
T$(SB$.SA):PRINT@244+SA.CHR$(175 
):CHR$(32)::ELSE SOUND 200.1 



210 IF SA-7 THEN PRINT@252. "]" 

212 G010 204 

214 IF AB$OCHRJ(13) THEN 218 

216 IF SA=0 THEN RETURN: ELSE 224 

218 IF SA=8 THEM SOUND 200.1:GOT 

204: ELSE SB$-SB$+AB$ 

220 PRINT@244+SA.AB$::SA=SA+1:IF 

SA<8 THFN PRINT CHR$(175): 
222 GOTO 204 

224 IF INSTR(1,SB$.".")>0 OR INS 
TR(l.SB$,"/")>0 THEN SOUND 200.1 
:PRINT@449."N0 EXTENSIONS... PRE 
SS ANY KCY";:GOSUB 394:G0T0 200 
226 SB$-SB$+STRING$(8-SA.32)+".V 
EF" 

228 GOSUB 428 
230 IF AN=0 THEN 244 
232 FOR SB-1 TO AN 
234 IF SB$OAB$(SB) THEN 242 
236 SOUND 200, 1:PRINT@449. "FILE 
EXISTS: GO ON? [N]0 [Y]ES";:GOSU 
B 394 

238 IF AB$<>"N" AND AB$<>"Y" THE 
N 238 

240 IF AB$-"N" THEN 200:ELSE 244 
242 NEXT SB 

244 PRINT@225. "SAVING PICTURE: [ 
" ;SB$;"]":PRINT@257. "STATUS:. ["; 
STRING$(20,191);"]":PRINT®449.ST 
RING$(30,128): 
246 AJ-AJ-2:IF AJ-2 OR AJ-4 THEN 

SC-240:SD-160:ELSE SC-120:SD-80 
248 OPEN "0".#1.SB$ 
250 SE=VAL(MIO$("3041",AJ.1>) 
252 PRINT /tt,CHR$(0);CHR$(SE); 
254 FOR SF-0 TO 15 
256 SG-PA(SF)-64 

258 IF MA-0 THEN SG-VAL("SH"+MID 
$(SA$.(SG*2)+1.2)) 
260 PRINT #1,CHR$(SG): 
262 NEXT SF 
264 FOR SF-1 TO 8 
266 PRINT #1.STRING$(SO.0); 
268 NEXT SF 
270 SH-0:SI-48 

272 POKE &H5FF8,&H80:POKE &H5FFA 
,&HA0:POKE &H5FFF.0 
274 POKE &HFFA3.5I 
276 SC$-USR1(STRING$(128,32)) 
278 PRINT ffl,SC$; 
280 SH-SH+1 
282 IF SH=64 OR SH-128 OR SH-192 

THEN SI-SI+1:G0T0 274 
284 SJ-INT((SH/SC)*20):PRINT@266 
,STRING$(SJ,175): 
286 IF SOSH THEN 276 
288 CLOSE #1 
290 RETURN 
292 '* MEMORIZE * 
294 PRINT@449, "[ARROWS] SELECT 
R [Q]UIT MAIN"; 

296 IF LA-0 THEN SOUND 200,1:PRI 
NT@1 34 , "NO HSCREEN SELECTED! " : EL 
SE PRINT@134. "CHOOSE AN. HSCREEN. 

298 PRINT@195. "VIEW [320 X 200: 
4 CDLORS]":PRINT«227,"VIEW [320 
X 200: 16 C0L0R]":PRINT®259."V1E 
W -[640 X 200: 2 C0L0RS]":PRINT@2 
91.'"VIEW [640 X 200: 4 COLORS]" 
300 TF IA>0 THFN PRINT®323."VI€W 

DEFAULT HSCREEN: NOW" ;.LA 
302 AD-1:AF-28:AG-194:IF LA>0 TH 
EN AE-5:ELSE AE-4 
304 GOSilB 358 -• " 

306 IF AB$-"Q" THEN RETURN: ELSE 
GOSUB 418 - 
308 IF AJ<5 THEN LA-AJ 
310 HSCREEN LA 

312 GOSUB 394:G0SUB 402:HSCREEN 


314 GOTO 296 
316 '* MONITORS * 
318 PRINTS449, "[ARROWS] SELECT T 
YPE OR [Q1UIT": 

320 PRINT@128. "SELECT A MONITOR 
TYPE: NOW - ";:IF MA-2 THEN PRIN 
T "???": GOTO 324 

322 IF MA-0 THEN PRINT "CMP":ELS 
E PRINT "RGB" 

324 PRINT@198, "COMPOSITE COLOR ( 
TV)":PRINT@230,"RGB COLOR MONITO 
R" 
326 AD=1:AE-2:AF=22:AG-197:G0SUB 

358 
328 IF MA<2 THEN 336 
330 IF AB$-"Q" THEN 326 
332 IF AJ-1 THEN MA-0:CMP: ELSE M 
A-1:RGB 

334 GOSUB 408: RETURN 
336 IF AB$-"0" THEN RETURN 
338 IF AJ-2 THEN 348 



340 IF MA=0 THEN RETURN: ELSE MA- 
0:CMP 

342 FOR AL-0 TO 15 
344 PA(AL)-VAL("&H"+MID$(LA$,((P 
A(AL)-64)*2)+1.2))+64 
346 NEXT AL:RETURN 
348 IF MA=1 THEN RETURN:ELSE MA- 
1:RGB 

350 FOR AL-0 TO 15 
352 PA(AL)-VAL("4H"+MID$(SA$,((P 
A(AL)-64)*2)+l,2))+64 
354 NEXT AL: RETURN 
356 '* SELECTOR * 
358 AI-1:AJ-1:P0KE &H5FC3.AF 
360 AK=USR0(AG) 
362 GOSUB 394:AK-USR0(AG) 
364 IF ABS-CHR$(8) THEN AI-AI-1: 
IF AK1 THEN AI-AI+1:ELSE AG=AG- 
AH:GOTO 360 

366 IF AB$=CHR$(9) THEN AI-AI+1: 
IF AI>AD THEN AI-AI-1: ELSE AG-AG 
+AH:GOTO 360 

368 IF AB$=CHR$(94) THEN AJ-AJ-1 
:IF AJ<1 THEN AJ-AJ+1:ELSE AG-AG 
-32:G0TC 360 

370 IF AB$-CHR$(10) THEN AJ-AJ+1 
:IF Aj>AE THEN AJ-AJ-1:ELSE AG-A 
G+32:G0T0 360 
372 IF AB$-"Q" THEN RETURN 
374 IF AB$OCHR$(13) THEN SOUND 
200,1:GOTO 360 

376 FOR AL-1 TO 6:AK-USR0(AG) :G0 
SUB 382: NEXT AL 
378 RETURN 
380 '* PAUSES * 
382 FOR AM-1 TO 20: NEXT AM 
384 RETURN 
386 '* CLS PART * 
388 FOR AI-3 TO 12:PRINT@( Al *3?) 
,STRING$(32.32)::NEXT AL 
390 RETURN 
392 "* GET KEYS * 
394 FOR AL-341 TO 344: POKE AL.25 
5:NEXT AL 

396 AB$-INKEY$:IF AB$-"" THEN 39 
6 

398 RETURN 
400 '* PAL BACK * 
402 IF MA-0 THEN CMP: ELSE RGB 
404 RETURN 
406 '* PAL READ * 
408 FOR AL-0 TO 15 
410 PA(AL)=PEEKUHFFB0+AL) 
412 NEXT AL 
414 RETURN 
416 '* PAL VIEW * 
418 FOR AL-0 TO 15 
420 POKE &HFFB0+AL.PA(AL) 
422 NEXT AL 
424 RETURN 
426 '* OIR READ * 
428 AN-0 

430 FOR AO-3 TO 11 
432 DSKI$ 0,17,AO.AA$(1).AA$(2) 
434 FOR AP-1 TO 2 
436 AC$-AA$(AP) ' 
438 FOR AQ-1 TO 128 STEP 32 
440 AQJ-MID4(AC$.AQ.8)+"."+MID$( 
ACt.AQ+8,3) ■' 

442 If MI0$(A0$.1.1)-CHR$(255) T 
-HEN 448 

444 IF MID$(AD$,l,i)OCHR$(0) AN 
D RIfiHT$(AD$,3)-"VEf" THEN AN-AN 
+1:AB$(AN)-AD$ 
446 NEXT AQ.AP.AO 
448 RETURN 
450 '* TRAP ERR * 
452 GOSUB 388:S0UND 200,1:PRINT@ 
224. "WARNING: ERROR HAS OCCURRED 
>";ERN0:PRINT@256. "[PRESS ANY K 
EY: RETURNS 10 MENU]" 
454 UNLOAD:GOSUB 394:G0SUB 388:G 
OTO 40 

456 '* LEAVE-IT * 
458 CLS:PRINT@5. "THANKS FOR USIN 
G vefIT":UNLOAD:END 



12 



March 1993 



imm/mii 



VEF Graphics from Page JO 

ent resolutions. After making a selection, 
the HSCREEN is displayed. When you finish 
viewing, press any key to return to the 
display selection menu. Note that an addi- 
tional option now appears: View default 
HSCREEN. This option allows you to 
reselect the most-recent viewing choice you 
made, as indicated. After using Load Pic- 
ture, this option also appears for reviewing 
an image in its intended resolution. How- 
ever, the default value changes each time 
you choose a different viewing option than 
View Default HSCREEN. You must use 
this option at least once to enable graphics 
mode toggling with the Change Palette op- 
tion, as this is the default HSCREEN used. 

Monitor Resel: This function is auto- 
matically performed after you start VEFir. 
However, if you made an error in selection 
or decide to switch the type of monitor 
being used, you may select this option. 
Choosing the wrong monitor type causes 
VEF it to interpret the palette values incor- 
rectly when loading or saving a picture. 

Program Notes 

A description of the VEF format is shown 
in Figure 1. The various parts of VEF it are 
shown in figures 2 through 4. In reverse 
order. Figure 4 shows the various portions 



of the BASIC program, Figure 3 shows the 
HI LITE machine-language subroutine used 
to reverse the video codes to produce a 
highlight effect, and Figure 2 shows the 
source code for VEF IT. ASM, another ma- 
chine-language subroutine. V E F I T . ASM reads 
or writes 128-byte blocks of data in the 
address range $6000 through S7FFF. 

Since the four 8K blocks of HSCREEN 
memory ($60000 through $67FFF, or blocks 
48 through 5 1 ) are not mapped into BASIC'S 
regular workspace, VEFit must use Page 
Address Register 3 at $FFA3 to map these 
blocks into the $6000-to-$7FFF range one 
at a time as required. To gain a better 
understanding of how the MMU is used to 
switch 8K blocks of memory in BASIC'S 
workspace, refer to "Barden's Buffer" (THE 
rainbow. May 1 990, Page 78) and "New 
Clear-screen Routines: ML and the CoCo 
3" (the rainbow, June 1992, Page 1). 

Conclusively, VEFit provides a simple 
tool to support the VEF format under Disk 
BASIC. The longevity of this format is a 
result of its simplicity. To learn more about 
VEF, refer to Tim Kientzle's series of ar- 
ticles, "Displaying Picture Files" (THERAIN- 
BOW, October 1990 through December 
1990). I hope VEF gains wider recognition 
under Disk BASIC, as there are many advan- 
tages to following a good standard. 



Lines Function 


10-40 Initialization 


42-52Main Menu 


54-144 


Load Picture 


146-192 


Palette Change 


194-290 


Save Picture 


292-314 


Memory Display 


316-354 


Monitor Reset 


356-384 


Option Select 


386-390 


Clear Screen 


392-398 


Keyboard Input 


400-404 


Default Palette 


406-414 


Read Palette 


416-424 


View Palette 


426-448 


Read Directory 


450-454 


Error Trap 


456-458 


Exit/[BREAK| 


Figure 4: VEFit Subroutines 



Thomas Wong is an undergraduate pur- 
suing a degree in commerce. He enjoys 
cycling, stamp collecting and playing Bad- 
minton. He may be contacted at 29 Page 



Ave., Red Deer, AB TAP 1J7, Canada. 
Please include an SASE with sufficient re- 
turn postage when requesting a reply. 
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Twenty One /_ /_/ 

H 1 and Over 
// / _ 
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By TVevor Boehm 

Twenty One is a twist on the classic 
game Blackjack. Instead of dealing cards, 
the object is to stop three numeric tumblers 
in such a way that the total value of the 
displayed numbers is 21 or greater. But it 
isn't easy . . . 

Twenty One works on any CoCo with at 
least 16K and Extended color BASIC. Enter 
the listing as shown, save it to tape or disk 
as TWENTY 1, then enter RUN. After reading 
the short instruction screen, press any key 
to proceed. Displayed in the middle of the 
playing screen is a spinning tumbler with 
numbers on it. Press any key to stop the 
tumbler: the value displayed is added to 
your total. After you have stopped three 
tumblers, if your total is 21 or greater, 
you've won! 

This delightfully simple game is remark- 
ably entertaining. I hope it finds a good 
home in your software library. 
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Trevor Boehm is a tenth-grade student 
whose greatest passion is challenging com- 
puters with new programs. He has partici- 
pated in several science fairs and has re- 
ceived numerous awards for his work. He 
can be contacted at 77 Inwood Cres., 
Winnipeg, MB R2Y 1A2, Canada. Please 
include an SASE when requesting a reply. 
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The Listing: TWENTY1 

1 'TWENTY-ONE 

2 'BY TREVOR BOEHM 

3 'COPYRIGHT (C) 1993 

4 'BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 
10 CLS 

20 PRINT"TWENTY-0NE.. .":PRINT 

30 PRINVTHE OBJECT OF THE GAME 

IS TO SCORE 21 POINTS BY STOP 

PING EACHOF FOUR COUNTERS. YOUR 

SCORE IS THE SUM OF THE DIGITS 

N THE COUNTERS. GOOD LUCK!" 

40 EXEC44539 

50 PLAY "01T5CDEFGP4" 

60 PLAY "02CDEFGP4" 

70 PLAY "03CDEFG" 

80 A$-INKEY$:IF A$<>"- THEN 80 



90 CLS: PRINT-PRESS ANY KEY TO ST 

OP COUNTERS" 

100 CC=1:G0SUB 140 

110 CC-2:G0SUB 140 

120 CC=3:G0SUB 140 

130 CC-4:G0SUB 140:GOTO 170 

140 C(CC)-RND(10)-1 

150 PRINT@256+14.C(CC) 

160 IF INKEY$<>— THEN PRINTS454 

+CC*3,C(CC):REIURN ELSE GOTO 140 

170 PRINT0448. "TOTAL SCORE WAS:" 

:C(1)+C(2)+C(3)+C(4): 

180 IF C(l)+C(2)+C(3)+C(4)->21 T 

HEN FOR X-l TO 10:CLS RND(9M:N 

EXT:PLAY"CCDDEEFFGG":PLAY"P402CC 

DDEFFFGG":PLAY"P403CCDDEEFFGG":C 

LS:PRINT@256+5."Y0U BEAT THE COM 

PUTER!" 

190 EXEC44539:RUN 
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How to Manage 
Strings, Part II 

Last month we discussed six different 
approaches to handling strings in C or as- 
sembly language. To refresh your memory, 
they are 

•*■ Allocation of a fixed number of fixed- 
length blocks for storing strings: 

Advantages: fast and easy. 

Disadvantages: limits number and 

size of strings. 
«*" Allocation of space for each string 
from mal 1 oc: 

Advantages: easy; no limits on size 

or number of strings. 

Disadvantages: can be slow when 

there are many strings; not usually 

available for assembly programmers. 
E,v Fixed-length blocks, dynamically al- 
located from the heap: 

Advantages: unlimited number of 

strings. 

Disadvantages: limited size. 



■*" Static string pool: 

Advantages: no size limits. 
Disadvantages: deleting strings 
doesn't reclaim space. 

"3* Combination of previous two: 

Advantages: easy to implement; al- 
lows fast handling of common shorter 
strings; uses string pool to handle 
occasional longer ones. 
Disadvantages: deleting longer 
strings doesn't reclaim space. 

■3* String pool with compaction (or "gar- 
bage collection"): 

Advantages: size and number of 
strings are limited only by pool size; 
memory is used fairly efficiently. 
Disadvantages: harder to implement; 
can't use pointers to strings. 

As I pointed out last month, the last 
method is the most general, and there are 
times when it is the only one that will work 
well. But the others are faster and/or easier 
to implement, and are usually preferred 
when they will do the job. This month I'll 
develop a compacting string manager in 
some detail since it will bring up some 
interesting points. 

A Compacting String Manager 

The idea behind a compaction system is 
simple: whenever we can't easily find 
enough space, we move all the strings that 
are still allocated down to the bottom of the 
string pool. The result is that all the remain- 
ing free space once again appears in a block 
at the top of the pool, where it can be easily 
allocated. 

In order to simplify the following dis- 
cussion, let's establish one bit of terminol- 
ogy: a client is any program, function or 
other code that uses our string manager. 



The idea is that our string manager is pro- 
viding some service to its client, and we 
need to distinguish between things for which 
the client is responsible and things that the 
string manager must handle. The general 
rule is that the client and the manager never 



(Most of the code for the basic string 
manager appears in the following para- 
graphs. In the interest of conserving space, 
I've deliberately left out some pieces, so 
you should carefully study this to make sure 
you understand what's going on.) 



* String handle Is pointed tobyX. getflrstcharacter 
ldx ,x Get pointer to string 
Ida ,x Get character 



Figure 1 



make changes to something they don't own. 

The first goal in designing any package 
such as this is to figure out what the client 
has to deal with. The first hurdle appears 
when we realize that the client cannot use 
pointers to the strings, since compaction 
can happen at any time and this can cause 
the strings to move. Instead, we'll let the 
client have pointers to handles. A handle is 
really just a pointer, but it's a pointer that 
we own, not the client. Since the handle will 
never move, it's perfectly safe for the client 
to have a pointer to it. And since we own the 
handle, we are free to change it whenever 
we need to. 

This means that our client has to be 
careful when actually accessing strings. 
Since the client's pointer is really a pointer 
to the handle, the client must first get a 
pointer to the actual string in order to ma- 
nipulate the string directly. Be very careful 
with this since strings can move any time a 
new string is created. Usually we'll create 
routines in the string package to handle 
almost everything the client could need 
(copying strings, concatenating strings, find- 
ing substrings), so the client should hardly 
ever need to obtain a pointer to the actual 
string. If it did, it might look something like 
that in Figure 1 . 



One point that deserves some comment 
is that a handle in this case actually contains 
slightly more than just a pointer to the 
string. It also contains a pointer to the next 
handle. Depending on your needs, it might 
be reasonable to keep even more informa- 
tion in each handle. For example, you might 
want to keep the size of the string here as 
well. 

All handles are in one of two lists. One 
list starts with the handle pointed to by the 
"first" variable, and it contains all the 
handles that are in use. This list is used 
whenever we do compaction. By keeping 
this list sorted, our compaction becomes 
much simpler. The second list is a roster of 
the string handles that are unused. A sig- 
nificant part of creating a new string or 
freeing old string space involves moving 
the handle from one list to the other. 

First, we define the actual storage for the 
pool. Just as with the simple pool manager 
described last month, we need to know the 
addresses of the beginning and end of the 
pool and the address of the free space at the 
lop of the pool, which is where new strings 
will be allocated. Thiscan be accomplished 
using the code shown in Figure 2. 

continued 
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CHECK OUT OUR NEWEST TITLES 




GraffExpress 2.0 

The response lo this graphics and music piogromming 
environment has bean astounding. Now with GrafExpress 2.0 
the CoCo community can creote lightning fast arcade games, 
graphic applications, and windowing multimedia demos 
using up lo 256 colors! Its graphics toolkit blows away the 
competition (up to 300 times faster than BASIC). Features 
include text-graphics mixing, sprites, collision checking, fast 
window scrolling, multi-page animation, and easy interfacing 
with BASIC and assembly language Included along with the 
SO page manuol are support programs worth the purchose 
price olone: an Introductory Demo, Picture Editor, Waveform 
Editor, and o ?% color Art utility. Req. 128K min. $34.95 



The Contras 

This 512K poromilitory combat arcade game leotures a 2- 
player cooperative mode, incredible graphics, super-smooth 
animation and scrolling, sizzling sound effects, and an 
outstanding background music score. The Contios proves thot 
the CoCo con match - or surpass - any home gome system. 
Blow owoy the enemy through multiple levels and power up 
with ever more destructive weapons. The most ambitious 
game ever created for the CoCo 31 $34.95 

Photon 

Photon is a proven winner. The critics agree that it is one of 
the most challenging, original, and addictive gomes ever 
made for the CoCo. This arcade gome combines action and 
strategy with 16-<olor, ultra-smooth animation and loods of 
real-time music and sound effects. Over 60 devious levels of 
excitement. Requires 128K Coco 3. $34.95 

"it is the most addicting game I've played on the CoCo 
since Tetris. . , . Photon has the mark of a classic game. . . . 
My recommendation: Addict yourself." 
- Lauren Willoughby, Rainbow magazine. 



OTHER EXCEPTIONAL PRODUCTS 

War Monger An incredible war game simulator and construction set. $29.95 
Crystal City Ultra-fost space arcade action. Hardware scrolling with 128K. $34.95 
Quest for Thelda 500 screens of fast fantasy action. $34.95 Hint book $4.95 
ZenixThe incredibly popular, lightning fast, I28K stellar arcade game. $29.95 
Sinistaar 3 disks pocked with graphics and eerie sound effects. 512K req. $34.95 
Kyum-Gai: To be Ninja Best-selling 128K martial arts arcade classic. $29.95 

(Also available in 0S-9 version) 
SoundTrax 128K/512K polyphonic digital sound sequencing system. $34.95 
SoundTrax Instrument Disk Set 6 disk sides of new instruments/effects $29.95 
Warrior King $29.95 Hall of the King I, 2, or 3 $14.95 ea. 

Paladin's Legacy $12.95 Dragon Blade $9.95 

White Fire of Eternity $9.95 Champion $9.95 
Kung-Fu Dude $12.95 In Quest of the Star Lord $34.95 Hints $3.95 
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Tips, Tricks. . . continued 



We also have to define the handles. 
Since each handle is four bytes long, we 
allocate 400 bytes for 100 handles. If we 
were implementing this in C, we would 
probably use mal 1 oc to allocate space for 
the string pool and the string handles. The 
advantage is that it should be easy to create 
new string handles (or enlarge the pool) as 
we go along. We also need pointers to the 
two lists. The code for this is shown in 
Figure 3. 

Unlike the string-pool manager discussed 
last month, the client needs to reset the 
siring manager before actually trying to 
create any strings. The bulk of this routine 
(see Figure 4) is devoted to putting all the 
handles onto the free list. 

Freeing a string is actually pretty simple 
since all it really amounts to is abandoning 
the string — the compaction will reclaim 
the space later. The complicated part is 
moving the handle from the list of strings in 
use to the list of free handles. As we have 
things now, this requires searching the list 
to find the handle just before ours. If de- 
sired, we could speed it up by augmenting 
each handle with a pointer to the previous 
handle. This could be made beefier by check- 
ing for various errors (see Figure 5). 

Allocating a string is a simple process, 
too, if there's enough space. If there's not 
enough space, we do compaction and try 
again. If it fails twice, there really isn't 
enough space, and we must report an error. 



This would be faster if we didn't start from 
the beginning of the used list everytime we 
needed to add a new handle to the end. The 
code is shown in Figure 6. 

Finally, there's the actual compaction 
routine (see Figure 7). Since the list of used 
strings was kept sorted, all we do is walk 
down that list, moving each successive string 
down to its proper location. In the code 
below. Register X points to the string handle 
we're considering, U points to where the 
string is being moved, and Y points to 
where the string is now. 

To make this into a full-fledged string 
manager, we should write the routines to 
perform basic string operations. For ex- 
ample, a string-concatenate function would 
take pointers to two string handles and 
return a pointer to a new string handle 
which points to the new string. With a fully 
functioning string manager, it should be 
relatively simple to write a line-based edi- 
tor by simply storing each line as one string. 
Hopefully, by the time you read this, I'll 
have completed a somewhat more sophisti- 
cated version of this string manager in C 
and uploaded it to Delphi. Look for it there. 



Tim Kientzle is currently pursuing a 
doctorate in mathematics at the University 
of California at Berkeley. He is the author 
of V-Term and has worked with the Color 
Computer since 1982. 
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Feature Article 



Monthly Calendar 



by Harold H. Britten 

Miniature calendars are handy when you 
need to know the day of the week on which 
a given date falls. Check registers often 
include such calendars for the current year 
as well as one or two years in the future, and 
most convenience stores carry plasticized 
wallet-size copies as impulse items at the 
counter. It's easy to lose those little cards, 
though. 

Calendar is a short basic program I 
wrote so my CoCo 3 could give me this 
information, too. When you run Calendar, 
you are prompted to enter the month and the 
year. To do this, enter the first few letters of 
the month, followed by a comma and the 
year. Make sure you enter all four digits of 
the year (e.g., 1992 instead of just 92). For 
example, to see the calendar for November 
1995, you would enter NOV. 1995. After 



Calendar has displayed the appropriate 
month, press any key to see the calendar for 
another month. 

Calendar is "perpetual" — that is, it can 
be used to display the monthly calendar for 
any month of any year. This sure helps 
make planning for the future much easier. 
The program can also be fun — use it to see 
what day of the week you were born on. I 
hope you find Calendar to be a useful (and 
fun) program. 



Harold H. Britten is an avid bycyclist 
and currently works for a health and fitness 
club. He may be contactedat949N. Loudon 
Rd., Apt. #6, Latham, NY 12110. Please 
include an SASE when requesting a reply. 
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The Listing: CALENDAR 

1 •PERPETUAL CALENDAR 

2 •BY HAROLD H. BRITTEN 

3 '(COPYRIGHT (C) 1993 

4 'BY FALSOFT. INC. 

5 "RAINBOW MAGAZINE 

10 WIDTH40:DIMM$(12),D(12):rORI- 

1T012:READM$(I),D(I):NEXT 

20 PRINT:INPUT" MONTH. YEAR"; 

M$.Y:F0RI-1T012:IFM$-LEFT$(M$(I) 

,LEN(M$))THENM-I ELSENEXT:GOTO20 

30 D=INT(Y-2000):D(2)=1-SGN(D-IN 

T(D/4)*4)+SGN(D-INT(D/100)*100)- 

SGN(D-INT(D/400)*400):D=INT((D+3 

)/4)-INT((D+99)/100)+INT((D+399) 



/4001+D: FORI-0TOM- 1 : D-D+D( I ) :NEX 
T:D-0+6:D-D-INT(D/7)*7 
40 CLS:M$=M$(M)+STR$(Y):PRINTTAB 
(21-LEN(M$)/2);M$:LOCATE0,3:PRIN 
T" SUN MON TUE WED THU FRI 
SAT" : L0CATE5*D . 6 : F0RI-1T0D( M)+ 
28:M$-STR$(I):PRINTLEFT$!" ".5 
-LEN(M$))+M$;:D-D+1:IFD-7THENPRI 
NT:PRINT:PRINT:D-0:NEXTELSENEXT 
50 A$=INKEY$:IFA$-""THEN50ELSEPR 
INT:IFA$=" "THENIFM<12THENM=M+1: 
GOlO30tLSLM-l:Y-Y+l:GOIO30tLSt20 
60 DATA JANUARY. 3. FEBRUARY. 0. MAR 
CH. 3. APRIL. 2. MAY. 3. JUNE. 2. JULY. 3 
.AUGUST. 3. SEPTEMBER. 2. OCTOBER. 3, 
NOVEMBER. 2. DECEMBER. 3 fy^ 
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Call Ira Barsky 
Western Sales Director 
(312)587-1818 



Call Kim Lewis 
Eastern Sales Director 
(502)228-4492 




The Falsott Building 

9509 U.S. Highway 42, P.O. Box 385, Prospect, KY 40059 

(502) 228-4492 • FAX (502) 228-5121 



I M&nMlLs AmaaricA Fast \ 

For your "Color Coaputor" 

Saturday VIP Brsakfast 8:30 AN ISVP 7 day* 

Vita Carl Bell/ VP Olansida 4 Tarry Simons/ HIaCC 
Saturday Show March 27. 10:00 AH to 6:00 PH 
Saturday Social: ia oar loon«a araa 7:30 PR 
Sunday Show March 28, 10:00 AH to 3:00 PN 

The Place: The Travel Lodge Inn. 

Easy highway access at 1-35 & 80 interchange. Exit #124 
(University) 3 blks East. With a "limited number" of rooms 
reserved at Fest rates. $35.00 per rooa. up to 4 occupants 
These are United, reserve your rooa early: 1-8O0-255-3O50 

Airport shuttle provided! (roots only) 

Our national reach out and central location should assure 
full attendance with an attractive and fun filled Fest! 
Cone and visit at: The Travel Lodge Inn with attractively 
displayed booths and plenty of walking and talking room. 
Speakers, start with the well known Janes Jones of 
Microware, OS-9 User Group Founding Pres , Boisy Pltre. and 
Terry Simons. RSDOS. And others will fill an attractive 
seminar schedule. Join our evening informal round table 
chit-chat gathering, and meet other users. With both heavy 
emphasis for the 0S-9 enthusiast: and a good representation 
of RSDOS. This proaisas to be a wall rounded Fest! 
A Color Computer Past yon don't want to aissl 
Tickets: Til Mar 1 At door Middle America Fest 

One day $10.00 $12.00 Terry Simons/ Treas 

Two day $12.00 $15.00 1328 48th St. 

VIP Breakfast optional $7.00 Des Moines. IA 50311 

Check or M.O. Booth prices on request 

Get a 1 year "UPGRADE National Slskaagaciaa" subscription. 

and MI&CC membership. $19.00 US $24.00 Canada 

see Jan Rainbow pg 9 $31.00 Frgn Air $3.00 sample disk 



For your "Color Conputer" 

*w* ^^ ^T ^L^ ^t" ^m ^w ^si ^P ^m ^w ^m ^T* ^m ^W* ^W* ^m^ ^u^ *aP ^a: ^u ^si 
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P.O. Box 733 Maple Valley, WA 98038 
U.S. ORDER DESK: (800) 237-2409 
INT'L & TECHNICAL: (206) 432-1814 

Boost your CoCo with these fine Burke & Burke products: 

THEXDER:OS9 - NEW FOR OS9. Use your TANDY™ $29.95 

Thexder cartridge under OS9. By Alan DeKok. 

The 6309 Book - 6309 programming book by Chris Burke. $24.95 

Includes XSM assembler, disassembler, and DEBUG patches 
for OS9 Level 2. 

PowerBoost -■ 2 MHz enhanced HD63B09E processor wl OS9 $29.95 

kernel and I/O patches (10% - 50% speed improvement). Note: 
soldering required for installation. 

WORLD CLASS CHESS* - Use Cyrus Chess cartridge w/L2 OS9 $29.95 

FILE SYSTEM REPACK 1.1- Faster OS9disk defragmenter $29.95 

FILE RECOVERY SYSTEM - Helps recover flies from OS9 disks. $24.95 

R.S. B.*- Disk BASIC for Level 2 (BASIC ROM required). $39.95 

E2GF.N 1. 10 - EVEN FASTER! Handy & powerful OS9bootfile editor $19.95 

WILD & MV - Use wildcards with OS9 commands; movefiles $19.95 

PERTASC1I - Challenging OS9 game to make words from a list of $19.95 

random letters. Play against the computer, multi-user, or BBS. 

ZCLOCK - Continuous time / date display on Level 2 screen $9.95 

i 

| COCO XT -Use PC MFM or RLL hard drives with CoCo! OS9S/W $69.95 
j included (add $30 for COCO XT-RTC version with real-lime clock; add 
j $20 for XT-ROM hard disk auto-boot ROM). 

i DAGGORPATCH -Transfers TANDY™ Dungeons of Daggorath $9.95 

cartridge to DISK BASIC. Adds disk I/O, screen dump, repeat. 

WA RESIDENTS ADD 8.2% SALES TAX. MasterCard & VISA accepted. U.S. COD's add 

S3.75. Min. U.S. shipping $4.00. Min. to Canada $5.00. Please allow 2 weeks for delivery. 

Overnight or 2nd- day available lor in-stock items. Software upgrades $5.00 each w/receipt. 

including U.S. shipping. 

Call or write for a free catalog of more exciting Color Computer products! 



